; Disassembly of the file "Z:\home\knoppix\CoBra Project\Software\CPM\CPM 860K analysis\BLOCK#1.bin" ; ; CPU Type: Z80 ; ; Using the opcode map file "Z:\home\knoppix\CoBra Project\Software\CPM\CPM 860K analysis\BLOCK#1.bin.opmap" ; ; Created with dZ80 2.0 ; ; on Friday, 03 of February 2017 at 11:55 PM ; 6200 00 DEFB $00 6201 00 DEFB $00 6202 00 DEFB $00 6203 00 DEFB $00 6204 00 DEFB $00 6205 00 DEFB $00 6206 00 DEFB $00 6207 00 DEFB $00 6208 00 DEFB $00 6209 00 DEFB $00 620A 00 DEFB $00 620B 00 DEFB $00 620C 00 DEFB $00 620D 00 DEFB $00 620E 00 DEFB $00 620F 00 DEFB $00 6210 00 DEFB $00 6211 00 DEFB $00 6212 00 DEFB $00 6213 00 DEFB $00 6214 00 DEFB $00 6215 00 DEFB $00 6216 00 DEFB $00 6217 00 DEFB $00 6218 00 DEFB $00 6219 00 DEFB $00 621A 00 DEFB $00 621B 00 DEFB $00 621C 00 DEFB $00 621D 00 DEFB $00 621E 00 DEFB $00 621F 00 DEFB $00 6220 00 DEFB $00 6221 00 DEFB $00 6222 00 DEFB $00 6223 00 DEFB $00 6224 00 DEFB $00 6225 00 DEFB $00 6226 00 DEFB $00 6227 00 DEFB $00 6228 00 DEFB $00 6229 00 DEFB $00 622A 00 DEFB $00 622B 00 DEFB $00 622C 00 DEFB $00 622D 00 DEFB $00 622E 00 DEFB $00 622F 00 DEFB $00 6230 00 DEFB $00 6231 00 DEFB $00 6232 00 DEFB $00 6233 00 DEFB $00 6234 00 DEFB $00 6235 00 DEFB $00 6236 00 DEFB $00 6237 00 DEFB $00 6238 00 DEFB $00 6239 00 DEFB $00 623A 00 DEFB $00 623B 00 DEFB $00 623C 00 DEFB $00 623D 00 DEFB $00 623E 00 DEFB $00 623F 00 DEFB $00 6240 00 DEFB $00 6241 00 DEFB $00 6242 00 DEFB $00 6243 00 DEFB $00 6244 00 DEFB $00 6245 00 DEFB $00 6246 00 DEFB $00 6247 00 DEFB $00 6248 00 DEFB $00 6249 00 DEFB $00 624A 00 DEFB $00 624B 00 DEFB $00 624C 00 DEFB $00 624D 00 DEFB $00 624E 00 DEFB $00 624F 00 DEFB $00 6250 00 DEFB $00 6251 00 DEFB $00 6252 00 DEFB $00 6253 00 DEFB $00 6254 00 DEFB $00 6255 00 DEFB $00 6256 00 DEFB $00 6257 00 DEFB $00 6258 00 DEFB $00 6259 00 DEFB $00 625A 00 DEFB $00 625B 00 DEFB $00 625C 00 DEFB $00 625D 00 DEFB $00 625E 00 DEFB $00 625F 00 DEFB $00 6260 00 DEFB $00 6261 00 DEFB $00 6262 00 DEFB $00 6263 00 DEFB $00 6264 00 DEFB $00 6265 00 DEFB $00 6266 00 DEFB $00 6267 00 DEFB $00 6268 00 DEFB $00 6269 00 DEFB $00 626A 00 DEFB $00 626B 00 DEFB $00 626C 00 DEFB $00 626D 00 DEFB $00 626E 00 DEFB $00 626F 00 DEFB $00 6270 00 DEFB $00 6271 00 DEFB $00 6272 00 DEFB $00 6273 00 DEFB $00 6274 00 DEFB $00 6275 00 DEFB $00 6276 00 DEFB $00 6277 00 DEFB $00 6278 00 DEFB $00 6279 00 DEFB $00 627A 00 DEFB $00 627B 00 DEFB $00 627C 00 DEFB $00 627D 00 DEFB $00 627E 00 DEFB $00 627F 00 DEFB $00 6280 01FE00 LD BC,$00FE 6283 ED78 IN A,(C) 6285 E63F AND $3F 6287 FE3F CP $3F 6289 20F5 JR NZ,$6280 628B C373F8 JP $F873 628E 2147F6 LD HL,$F647 6291 3E04 LD A,$04 6293 AE XOR (HL) 6294 77 LD (HL),A 6295 E604 AND $04 6297 210801 LD HL,$0108 629A 2803 JR Z,$629F 629C 210204 LD HL,$0402 629F 2248F6 LD ($F648),HL 62A2 3A40F6 LD A,($F640) 62A5 C364F9 JP $F964 62A8 3AC068 LD A,($68C0) 62AB EE18 XOR $18 62AD 32C068 LD ($68C0),A 62B0 18F0 JR $62A2 62B2 3A4EF6 LD A,($F64E) 62B5 FE82 CP $82 62B7 CA8E62 JP Z,$628E 62BA FEDE CP $DE 62BC 28EA JR Z,$62A8 62BE FEE0 CP $E0 62C0 CC1176 CALL Z,$7611 62C3 18DD JR $62A2 62C5 3A40F6 LD A,($F640) 62C8 325F78 LD ($785F),A 62CB CBF7 SET 6,A 62CD 3240F6 LD ($F640),A 62D0 FB EI 62D1 D9 EXX 62D2 08 EX AF,AF' 62D3 FE0B CP $0B 62D5 301C JR NC,$62F3 62D7 ED735878 LD ($7858),SP 62DB 315878 LD SP,$7858 62DE 216078 LD HL,$7860 62E1 87 ADD A,A 62E2 5F LD E,A 62E3 1600 LD D,$00 62E5 19 ADD HL,DE 62E6 5E LD E,(HL) 62E7 23 INC HL 62E8 56 LD D,(HL) 62E9 D5 PUSH DE 62EA D9 EXX 62EB E1 POP HL 62EC CD9C67 CALL $679C 62EF ED7B5878 LD SP,($7858) 62F3 D9 EXX 62F4 F3 DI 62F5 3A5F78 LD A,($785F) 62F8 3240F6 LD ($F640),A 62FB 18A5 JR $62A2 62FD 00 DEFB $00 62FE 00 DEFB $00 62FF 00 DEFB $00 6300 00 DEFB $00 6301 00 DEFB $00 6302 00 DEFB $00 6303 00 DEFB $00 6304 00 DEFB $00 6305 00 DEFB $00 6306 00 DEFB $00 6307 00 DEFB $00 6308 00 DEFB $00 6309 20 DEFB $20 630A 20 DEFB $20 630B 20 DEFB $20 630C 20 DEFB $20 630D 00 DEFB $00 630E 20 DEFB $20 630F 00 DEFB $00 6310 00 DEFB $00 6311 28 DEFB $28 6312 50 DEFB $50 6313 00 DEFB $00 6314 00 DEFB $00 6315 00 DEFB $00 6316 00 DEFB $00 6317 00 DEFB $00 6318 00 DEFB $00 6319 50 DEFB $50 631A F8 DEFB $F8 631B 50 DEFB $50 631C 50 DEFB $50 631D F8 DEFB $F8 631E 50 DEFB $50 631F 00 DEFB $00 6320 20 DEFB $20 6321 78 DEFB $78 6322 80 DEFB $80 6323 70 DEFB $70 6324 08 DEFB $08 6325 F0 DEFB $F0 6326 20 DEFB $20 6327 00 DEFB $00 6328 00 DEFB $00 6329 C8 DEFB $C8 632A D0 DEFB $D0 632B 20 DEFB $20 632C 40 DEFB $40 632D 98 DEFB $98 632E 98 DEFB $98 632F 00 DEFB $00 6330 00 DEFB $00 6331 20 DEFB $20 6332 50 DEFB $50 6333 20 DEFB $20 6334 58 DEFB $58 6335 90 DEFB $90 6336 68 DEFB $68 6337 00 DEFB $00 6338 00 DEFB $00 6339 10 DEFB $10 633A 20 DEFB $20 633B 00 DEFB $00 633C 00 DEFB $00 633D 00 DEFB $00 633E 00 DEFB $00 633F 00 DEFB $00 6340 00 DEFB $00 6341 10 DEFB $10 6342 20 DEFB $20 6343 20 DEFB $20 6344 20 DEFB $20 6345 20 DEFB $20 6346 10 DEFB $10 6347 00 DEFB $00 6348 00 DEFB $00 6349 40 DEFB $40 634A 20 DEFB $20 634B 20 DEFB $20 634C 20 DEFB $20 634D 20 DEFB $20 634E 40 DEFB $40 634F 00 DEFB $00 6350 00 DEFB $00 6351 50 DEFB $50 6352 20 DEFB $20 6353 F8 DEFB $F8 6354 20 DEFB $20 6355 50 DEFB $50 6356 00 DEFB $00 6357 00 DEFB $00 6358 00 DEFB $00 6359 20 DEFB $20 635A 20 DEFB $20 635B F8 DEFB $F8 635C 20 DEFB $20 635D 20 DEFB $20 635E 00 DEFB $00 635F 00 DEFB $00 6360 00 DEFB $00 6361 00 DEFB $00 6362 00 DEFB $00 6363 00 DEFB $00 6364 00 DEFB $00 6365 20 DEFB $20 6366 40 DEFB $40 6367 00 DEFB $00 6368 00 DEFB $00 6369 00 DEFB $00 636A 00 DEFB $00 636B F8 DEFB $F8 636C 00 DEFB $00 636D 00 DEFB $00 636E 00 DEFB $00 636F 00 DEFB $00 6370 00 DEFB $00 6371 00 DEFB $00 6372 00 DEFB $00 6373 00 DEFB $00 6374 00 DEFB $00 6375 00 DEFB $00 6376 20 DEFB $20 6377 00 DEFB $00 6378 00 DEFB $00 6379 08 DEFB $08 637A 08 DEFB $08 637B 10 DEFB $10 637C 20 DEFB $20 637D 40 DEFB $40 637E 80 DEFB $80 637F 80 DEFB $80 6380 00 DEFB $00 6381 70 DEFB $70 6382 88 DEFB $88 6383 98 DEFB $98 6384 A8 DEFB $A8 6385 C8 DEFB $C8 6386 70 DEFB $70 6387 00 DEFB $00 6388 00 DEFB $00 6389 20 DEFB $20 638A 60 DEFB $60 638B 20 DEFB $20 638C 20 DEFB $20 638D 20 DEFB $20 638E 70 DEFB $70 638F 00 DEFB $00 6390 00 DEFB $00 6391 70 DEFB $70 6392 88 DEFB $88 6393 08 DEFB $08 6394 70 DEFB $70 6395 80 DEFB $80 6396 F8 DEFB $F8 6397 00 DEFB $00 6398 00 DEFB $00 6399 70 DEFB $70 639A 08 DEFB $08 639B 30 DEFB $30 639C 08 DEFB $08 639D 88 DEFB $88 639E 70 DEFB $70 639F 00 DEFB $00 63A0 00 DEFB $00 63A1 10 DEFB $10 63A2 30 DEFB $30 63A3 50 DEFB $50 63A4 90 DEFB $90 63A5 F8 DEFB $F8 63A6 10 DEFB $10 63A7 00 DEFB $00 63A8 00 DEFB $00 63A9 F8 DEFB $F8 63AA 80 DEFB $80 63AB F0 DEFB $F0 63AC 08 DEFB $08 63AD 88 DEFB $88 63AE 70 DEFB $70 63AF 00 DEFB $00 63B0 00 DEFB $00 63B1 70 DEFB $70 63B2 80 DEFB $80 63B3 F0 DEFB $F0 63B4 88 DEFB $88 63B5 88 DEFB $88 63B6 70 DEFB $70 63B7 00 DEFB $00 63B8 00 DEFB $00 63B9 F8 DEFB $F8 63BA 08 DEFB $08 63BB 10 DEFB $10 63BC 20 DEFB $20 63BD 40 DEFB $40 63BE 40 DEFB $40 63BF 00 DEFB $00 63C0 00 DEFB $00 63C1 70 DEFB $70 63C2 88 DEFB $88 63C3 70 DEFB $70 63C4 88 DEFB $88 63C5 88 DEFB $88 63C6 70 DEFB $70 63C7 00 DEFB $00 63C8 00 DEFB $00 63C9 70 DEFB $70 63CA 88 DEFB $88 63CB 88 DEFB $88 63CC 78 DEFB $78 63CD 08 DEFB $08 63CE 70 DEFB $70 63CF 00 DEFB $00 63D0 00 DEFB $00 63D1 00 DEFB $00 63D2 00 DEFB $00 63D3 20 DEFB $20 63D4 00 DEFB $00 63D5 20 DEFB $20 63D6 00 DEFB $00 63D7 00 DEFB $00 63D8 00 DEFB $00 63D9 00 DEFB $00 63DA 00 DEFB $00 63DB 20 DEFB $20 63DC 00 DEFB $00 63DD 20 DEFB $20 63DE 40 DEFB $40 63DF 00 DEFB $00 63E0 00 DEFB $00 63E1 20 DEFB $20 63E2 40 DEFB $40 63E3 80 DEFB $80 63E4 40 DEFB $40 63E5 20 DEFB $20 63E6 00 DEFB $00 63E7 00 DEFB $00 63E8 00 DEFB $00 63E9 00 DEFB $00 63EA F8 DEFB $F8 63EB 00 DEFB $00 63EC F8 DEFB $F8 63ED 00 DEFB $00 63EE 00 DEFB $00 63EF 00 DEFB $00 63F0 00 DEFB $00 63F1 20 DEFB $20 63F2 10 DEFB $10 63F3 08 DEFB $08 63F4 10 DEFB $10 63F5 20 DEFB $20 63F6 00 DEFB $00 63F7 00 DEFB $00 63F8 00 DEFB $00 63F9 70 DEFB $70 63FA 88 DEFB $88 63FB 10 DEFB $10 63FC 20 DEFB $20 63FD 00 DEFB $00 63FE 20 DEFB $20 63FF 00 DEFB $00 6400 00 DEFB $00 6401 70 DEFB $70 6402 98 DEFB $98 6403 A8 DEFB $A8 6404 B8 DEFB $B8 6405 80 DEFB $80 6406 78 DEFB $78 6407 00 DEFB $00 6408 00 DEFB $00 6409 70 DEFB $70 640A 88 DEFB $88 640B 88 DEFB $88 640C F8 DEFB $F8 640D 88 DEFB $88 640E 88 DEFB $88 640F 00 DEFB $00 6410 00 DEFB $00 6411 F0 DEFB $F0 6412 88 DEFB $88 6413 F0 DEFB $F0 6414 88 DEFB $88 6415 88 DEFB $88 6416 F0 DEFB $F0 6417 00 DEFB $00 6418 00 DEFB $00 6419 70 DEFB $70 641A 88 DEFB $88 641B 80 DEFB $80 641C 80 DEFB $80 641D 88 DEFB $88 641E 70 DEFB $70 641F 00 DEFB $00 6420 00 DEFB $00 6421 F0 DEFB $F0 6422 88 DEFB $88 6423 88 DEFB $88 6424 88 DEFB $88 6425 88 DEFB $88 6426 F0 DEFB $F0 6427 00 DEFB $00 6428 00 DEFB $00 6429 F8 DEFB $F8 642A 80 DEFB $80 642B F0 DEFB $F0 642C 80 DEFB $80 642D 80 DEFB $80 642E F8 DEFB $F8 642F 00 DEFB $00 6430 00 DEFB $00 6431 F8 DEFB $F8 6432 80 DEFB $80 6433 F0 DEFB $F0 6434 80 DEFB $80 6435 80 DEFB $80 6436 80 DEFB $80 6437 00 DEFB $00 6438 00 DEFB $00 6439 70 DEFB $70 643A 88 DEFB $88 643B 80 DEFB $80 643C B8 DEFB $B8 643D 88 DEFB $88 643E 70 DEFB $70 643F 00 DEFB $00 6440 00 DEFB $00 6441 88 DEFB $88 6442 88 DEFB $88 6443 F8 DEFB $F8 6444 88 DEFB $88 6445 88 DEFB $88 6446 88 DEFB $88 6447 00 DEFB $00 6448 00 DEFB $00 6449 70 DEFB $70 644A 20 DEFB $20 644B 20 DEFB $20 644C 20 DEFB $20 644D 20 DEFB $20 644E 70 DEFB $70 644F 00 DEFB $00 6450 00 DEFB $00 6451 08 DEFB $08 6452 08 DEFB $08 6453 08 DEFB $08 6454 08 DEFB $08 6455 88 DEFB $88 6456 70 DEFB $70 6457 00 DEFB $00 6458 00 DEFB $00 6459 90 DEFB $90 645A A0 DEFB $A0 645B C0 DEFB $C0 645C A0 DEFB $A0 645D 90 DEFB $90 645E 88 DEFB $88 645F 00 DEFB $00 6460 00 DEFB $00 6461 80 DEFB $80 6462 80 DEFB $80 6463 80 DEFB $80 6464 80 DEFB $80 6465 80 DEFB $80 6466 F8 DEFB $F8 6467 00 DEFB $00 6468 00 DEFB $00 6469 88 DEFB $88 646A D8 DEFB $D8 646B A8 DEFB $A8 646C 88 DEFB $88 646D 88 DEFB $88 646E 88 DEFB $88 646F 00 DEFB $00 6470 00 DEFB $00 6471 88 DEFB $88 6472 88 DEFB $88 6473 C8 DEFB $C8 6474 A8 DEFB $A8 6475 98 DEFB $98 6476 88 DEFB $88 6477 00 DEFB $00 6478 00 DEFB $00 6479 70 DEFB $70 647A 88 DEFB $88 647B 88 DEFB $88 647C 88 DEFB $88 647D 88 DEFB $88 647E 70 DEFB $70 647F 00 DEFB $00 6480 00 DEFB $00 6481 F0 DEFB $F0 6482 88 DEFB $88 6483 88 DEFB $88 6484 F0 DEFB $F0 6485 80 DEFB $80 6486 80 DEFB $80 6487 00 DEFB $00 6488 00 DEFB $00 6489 70 DEFB $70 648A 88 DEFB $88 648B 88 DEFB $88 648C A8 DEFB $A8 648D 90 DEFB $90 648E 68 DEFB $68 648F 00 DEFB $00 6490 00 DEFB $00 6491 F0 DEFB $F0 6492 88 DEFB $88 6493 88 DEFB $88 6494 F0 DEFB $F0 6495 90 DEFB $90 6496 88 DEFB $88 6497 00 DEFB $00 6498 00 DEFB $00 6499 70 DEFB $70 649A 80 DEFB $80 649B 70 DEFB $70 649C 08 DEFB $08 649D 08 DEFB $08 649E F0 DEFB $F0 649F 00 DEFB $00 64A0 00 DEFB $00 64A1 F8 DEFB $F8 64A2 20 DEFB $20 64A3 20 DEFB $20 64A4 20 DEFB $20 64A5 20 DEFB $20 64A6 20 DEFB $20 64A7 00 DEFB $00 64A8 00 DEFB $00 64A9 88 DEFB $88 64AA 88 DEFB $88 64AB 88 DEFB $88 64AC 88 DEFB $88 64AD 88 DEFB $88 64AE 70 DEFB $70 64AF 00 DEFB $00 64B0 00 DEFB $00 64B1 88 DEFB $88 64B2 88 DEFB $88 64B3 88 DEFB $88 64B4 88 DEFB $88 64B5 50 DEFB $50 64B6 20 DEFB $20 64B7 00 DEFB $00 64B8 00 DEFB $00 64B9 88 DEFB $88 64BA 88 DEFB $88 64BB A8 DEFB $A8 64BC A8 DEFB $A8 64BD D8 DEFB $D8 64BE 88 DEFB $88 64BF 00 DEFB $00 64C0 00 DEFB $00 64C1 88 DEFB $88 64C2 50 DEFB $50 64C3 20 DEFB $20 64C4 20 DEFB $20 64C5 50 DEFB $50 64C6 88 DEFB $88 64C7 00 DEFB $00 64C8 00 DEFB $00 64C9 88 DEFB $88 64CA 88 DEFB $88 64CB 50 DEFB $50 64CC 20 DEFB $20 64CD 20 DEFB $20 64CE 20 DEFB $20 64CF 00 DEFB $00 64D0 00 DEFB $00 64D1 F8 DEFB $F8 64D2 10 DEFB $10 64D3 20 DEFB $20 64D4 40 DEFB $40 64D5 80 DEFB $80 64D6 F8 DEFB $F8 64D7 00 DEFB $00 64D8 00 DEFB $00 64D9 70 DEFB $70 64DA 40 DEFB $40 64DB 40 DEFB $40 64DC 40 DEFB $40 64DD 40 DEFB $40 64DE 70 DEFB $70 64DF 00 DEFB $00 64E0 00 DEFB $00 64E1 80 DEFB $80 64E2 80 DEFB $80 64E3 40 DEFB $40 64E4 20 DEFB $20 64E5 10 DEFB $10 64E6 08 DEFB $08 64E7 08 DEFB $08 64E8 00 DEFB $00 64E9 70 DEFB $70 64EA 10 DEFB $10 64EB 10 DEFB $10 64EC 10 DEFB $10 64ED 10 DEFB $10 64EE 70 DEFB $70 64EF 00 DEFB $00 64F0 00 DEFB $00 64F1 20 DEFB $20 64F2 70 DEFB $70 64F3 A8 DEFB $A8 64F4 20 DEFB $20 64F5 20 DEFB $20 64F6 20 DEFB $20 64F7 00 DEFB $00 64F8 00 DEFB $00 64F9 00 DEFB $00 64FA 00 DEFB $00 64FB 00 DEFB $00 64FC 00 DEFB $00 64FD 00 DEFB $00 64FE 00 DEFB $00 64FF FC DEFB $FC 6500 00 DEFB $00 6501 60 DEFB $60 6502 90 DEFB $90 6503 80 DEFB $80 6504 E0 DEFB $E0 6505 80 DEFB $80 6506 F0 DEFB $F0 6507 00 DEFB $00 6508 00 DEFB $00 6509 00 DEFB $00 650A 70 DEFB $70 650B 08 DEFB $08 650C 78 DEFB $78 650D 88 DEFB $88 650E 78 DEFB $78 650F 00 DEFB $00 6510 00 DEFB $00 6511 80 DEFB $80 6512 80 DEFB $80 6513 F0 DEFB $F0 6514 88 DEFB $88 6515 88 DEFB $88 6516 F0 DEFB $F0 6517 00 DEFB $00 6518 00 DEFB $00 6519 00 DEFB $00 651A 70 DEFB $70 651B 88 DEFB $88 651C 80 DEFB $80 651D 88 DEFB $88 651E 70 DEFB $70 651F 00 DEFB $00 6520 00 DEFB $00 6521 08 DEFB $08 6522 08 DEFB $08 6523 78 DEFB $78 6524 88 DEFB $88 6525 88 DEFB $88 6526 78 DEFB $78 6527 00 DEFB $00 6528 00 DEFB $00 6529 00 DEFB $00 652A 70 DEFB $70 652B 88 DEFB $88 652C F0 DEFB $F0 652D 80 DEFB $80 652E 78 DEFB $78 652F 00 DEFB $00 6530 00 DEFB $00 6531 30 DEFB $30 6532 40 DEFB $40 6533 60 DEFB $60 6534 40 DEFB $40 6535 40 DEFB $40 6536 40 DEFB $40 6537 00 DEFB $00 6538 00 DEFB $00 6539 00 DEFB $00 653A 68 DEFB $68 653B 98 DEFB $98 653C 88 DEFB $88 653D 78 DEFB $78 653E 08 DEFB $08 653F 70 DEFB $70 6540 00 DEFB $00 6541 80 DEFB $80 6542 80 DEFB $80 6543 F0 DEFB $F0 6544 88 DEFB $88 6545 88 DEFB $88 6546 88 DEFB $88 6547 00 DEFB $00 6548 00 DEFB $00 6549 20 DEFB $20 654A 00 DEFB $00 654B 60 DEFB $60 654C 20 DEFB $20 654D 20 DEFB $20 654E 70 DEFB $70 654F 00 DEFB $00 6550 00 DEFB $00 6551 10 DEFB $10 6552 00 DEFB $00 6553 10 DEFB $10 6554 10 DEFB $10 6555 10 DEFB $10 6556 10 DEFB $10 6557 60 DEFB $60 6558 00 DEFB $00 6559 80 DEFB $80 655A 80 DEFB $80 655B A0 DEFB $A0 655C C0 DEFB $C0 655D A0 DEFB $A0 655E 90 DEFB $90 655F 00 DEFB $00 6560 00 DEFB $00 6561 40 DEFB $40 6562 40 DEFB $40 6563 40 DEFB $40 6564 40 DEFB $40 6565 40 DEFB $40 6566 30 DEFB $30 6567 00 DEFB $00 6568 00 DEFB $00 6569 00 DEFB $00 656A 50 DEFB $50 656B A8 DEFB $A8 656C A8 DEFB $A8 656D A8 DEFB $A8 656E A8 DEFB $A8 656F 00 DEFB $00 6570 00 DEFB $00 6571 00 DEFB $00 6572 B0 DEFB $B0 6573 C8 DEFB $C8 6574 88 DEFB $88 6575 88 DEFB $88 6576 88 DEFB $88 6577 00 DEFB $00 6578 00 DEFB $00 6579 00 DEFB $00 657A 70 DEFB $70 657B 88 DEFB $88 657C 88 DEFB $88 657D 88 DEFB $88 657E 70 DEFB $70 657F 00 DEFB $00 6580 00 DEFB $00 6581 00 DEFB $00 6582 F0 DEFB $F0 6583 88 DEFB $88 6584 88 DEFB $88 6585 F0 DEFB $F0 6586 80 DEFB $80 6587 80 DEFB $80 6588 00 DEFB $00 6589 00 DEFB $00 658A 70 DEFB $70 658B 88 DEFB $88 658C 88 DEFB $88 658D 78 DEFB $78 658E 08 DEFB $08 658F 08 DEFB $08 6590 00 DEFB $00 6591 00 DEFB $00 6592 50 DEFB $50 6593 68 DEFB $68 6594 40 DEFB $40 6595 40 DEFB $40 6596 40 DEFB $40 6597 00 DEFB $00 6598 00 DEFB $00 6599 00 DEFB $00 659A 70 DEFB $70 659B 80 DEFB $80 659C 70 DEFB $70 659D 08 DEFB $08 659E F0 DEFB $F0 659F 00 DEFB $00 65A0 00 DEFB $00 65A1 20 DEFB $20 65A2 70 DEFB $70 65A3 20 DEFB $20 65A4 20 DEFB $20 65A5 28 DEFB $28 65A6 10 DEFB $10 65A7 00 DEFB $00 65A8 00 DEFB $00 65A9 00 DEFB $00 65AA 88 DEFB $88 65AB 88 DEFB $88 65AC 88 DEFB $88 65AD 88 DEFB $88 65AE 70 DEFB $70 65AF 00 DEFB $00 65B0 00 DEFB $00 65B1 00 DEFB $00 65B2 88 DEFB $88 65B3 88 DEFB $88 65B4 88 DEFB $88 65B5 50 DEFB $50 65B6 20 DEFB $20 65B7 00 DEFB $00 65B8 00 DEFB $00 65B9 00 DEFB $00 65BA 88 DEFB $88 65BB A8 DEFB $A8 65BC A8 DEFB $A8 65BD A8 DEFB $A8 65BE 50 DEFB $50 65BF 00 DEFB $00 65C0 00 DEFB $00 65C1 00 DEFB $00 65C2 88 DEFB $88 65C3 50 DEFB $50 65C4 20 DEFB $20 65C5 50 DEFB $50 65C6 88 DEFB $88 65C7 00 DEFB $00 65C8 00 DEFB $00 65C9 00 DEFB $00 65CA 88 DEFB $88 65CB 88 DEFB $88 65CC 88 DEFB $88 65CD 78 DEFB $78 65CE 08 DEFB $08 65CF 70 DEFB $70 65D0 00 DEFB $00 65D1 00 DEFB $00 65D2 F8 DEFB $F8 65D3 10 DEFB $10 65D4 20 DEFB $20 65D5 40 DEFB $40 65D6 F8 DEFB $F8 65D7 00 DEFB $00 65D8 00 DEFB $00 65D9 30 DEFB $30 65DA 20 DEFB $20 65DB 40 DEFB $40 65DC 20 DEFB $20 65DD 20 DEFB $20 65DE 30 DEFB $30 65DF 00 DEFB $00 65E0 00 DEFB $00 65E1 20 DEFB $20 65E2 20 DEFB $20 65E3 20 DEFB $20 65E4 00 DEFB $00 65E5 20 DEFB $20 65E6 20 DEFB $20 65E7 20 DEFB $20 65E8 00 DEFB $00 65E9 60 DEFB $60 65EA 20 DEFB $20 65EB 10 DEFB $10 65EC 20 DEFB $20 65ED 20 DEFB $20 65EE 60 DEFB $60 65EF 00 DEFB $00 65F0 00 DEFB $00 65F1 00 DEFB $00 65F2 00 DEFB $00 65F3 40 DEFB $40 65F4 A8 DEFB $A8 65F5 10 DEFB $10 65F6 00 DEFB $00 65F7 00 DEFB $00 65F8 78 DEFB $78 65F9 84 DEFB $84 65FA B4 DEFB $B4 65FB A4 DEFB $A4 65FC A4 DEFB $A4 65FD B4 DEFB $B4 65FE 84 DEFB $84 65FF 78 DEFB $78 6600 00 DEFB $00 6601 5B DEFB $5B 6602 00 DEFB $00 6603 5B DEFB $5B 6604 00 DEFB $00 6605 00 DEFB $00 6606 00 DEFB $00 6607 00 DEFB $00 6608 00 DEFB $00 6609 00 DEFB $00 660A 00 DEFB $00 660B 00 DEFB $00 660C 00 DEFB $00 660D 00 DEFB $00 660E 00 DEFB $00 660F 00 DEFB $00 6610 00 DEFB $00 6611 00 DEFB $00 6612 00 DEFB $00 6613 00 DEFB $00 6614 00 DEFB $00 6615 00 DEFB $00 6616 00 DEFB $00 6617 00 DEFB $00 6618 00 DEFB $00 6619 00 DEFB $00 661A 00 DEFB $00 661B 00 DEFB $00 661C 00 DEFB $00 661D 00 DEFB $00 661E 00 DEFB $00 661F 00 DEFB $00 6620 CD3566 CALL $6635 6623 CD1BF7 CALL $F71B 6626 B7 OR A 6627 28F7 JR Z,$6620 6629 CDB868 CALL $68B8 662C 3A4EF6 LD A,($F64E) 662F 214CF6 LD HL,$F64C 6632 3600 LD (HL),$00 6634 C9 RET 6635 2147F6 LD HL,$F647 6638 7E LD A,(HL) 6639 CB86 RES 0,(HL) 663B CB8E RES 1,(HL) 663D 2150F6 LD HL,$F650 6640 CB4F BIT 1,A 6642 CA7073 JP Z,$7370 6645 CB47 BIT 0,A 6647 3E08 LD A,$08 6649 2007 JR NZ,$6652 664B A6 AND (HL) 664C 2008 JR NZ,$6656 664E 3E10 LD A,$10 6650 1804 JR $6656 6652 A6 AND (HL) 6653 07 RLCA 6654 EE08 XOR $08 6656 AE XOR (HL) 6657 77 LD (HL),A 6658 21FF57 LD HL,$57FF 665B 11FE57 LD DE,$57FE 665E CD0975 CALL $7509 6661 00 NOP 6662 00 NOP 6663 00 NOP 6664 C3936B JP $6B93 6667 79 LD A,C 6668 321166 LD ($6611),A 666B 211066 LD HL,$6610 666E CB6E BIT 5,(HL) 6670 C2D568 JP NZ,$68D5 6673 CB76 BIT 6,(HL) 6675 C27C67 JP NZ,$677C 6678 FE7F CP $7F 667A CA8567 JP Z,$6785 667D E67F AND $7F 667F FE20 CP $20 6681 DA8567 JP C,$6785 6684 4F LD C,A 6685 7E LD A,(HL) 6686 E680 AND $80 6688 B1 OR C 6689 2A0866 LD HL,($6608) 668C BE CP (HL) 668D CA3769 JP Z,$6937 6690 77 LD (HL),A 6691 214AF6 LD HL,$F64A 6694 3600 LD (HL),$00 6696 CDA466 CALL $66A4 6699 214AF6 LD HL,$F64A 669C 36FF LD (HL),$FF 669E 23 INC HL 669F 3601 LD (HL),$01 66A1 C33769 JP $6937 66A4 47 LD B,A 66A5 2150F6 LD HL,$F650 66A8 3A0E66 LD A,($660E) 66AB CB5E BIT 3,(HL) 66AD 2006 JR NZ,$66B5 66AF CB66 BIT 4,(HL) 66B1 2804 JR Z,$66B7 66B3 D614 SUB $14 66B5 D614 SUB $14 66B7 FE28 CP $28 66B9 D0 RET NC 66BA E63C AND $3C 66BC 5F LD E,A 66BD 83 ADD A,E 66BE 83 ADD A,E 66BF CB3F SRL A 66C1 CB3F SRL A 66C3 5F LD E,A 66C4 1640 LD D,$40 66C6 211566 LD HL,$6615 66C9 3600 LD (HL),$00 66CB 78 LD A,B 66CC CB7F BIT 7,A 66CE 2802 JR Z,$66D2 66D0 36FC LD (HL),$FC 66D2 E67F AND $7F 66D4 D620 SUB $20 66D6 6F LD L,A 66D7 2600 LD H,$00 66D9 29 ADD HL,HL 66DA 29 ADD HL,HL 66DB 29 ADD HL,HL 66DC 010063 LD BC,$6300 66DF 09 ADD HL,BC 66E0 3A0F66 LD A,($660F) 66E3 0F RRCA 66E4 0F RRCA 66E5 0F RRCA 66E6 E6E0 AND $E0 66E8 83 ADD A,E 66E9 5F LD E,A 66EA 3A0F66 LD A,($660F) 66ED E618 AND $18 66EF B2 OR D 66F0 57 LD D,A 66F1 C3F466 JP $66F4 66F4 3A50F6 LD A,($F650) 66F7 CB5F BIT 3,A 66F9 2005 JR NZ,$6700 66FB CB67 BIT 4,A 66FD 2002 JR NZ,$6701 66FF 13 INC DE 6700 13 INC DE 6701 0608 LD B,$08 6703 3A0E66 LD A,($660E) 6706 E603 AND $03 6708 281A JR Z,$6724 670A 3D DEC A 670B 2827 JR Z,$6734 670D 13 INC DE 670E 3D DEC A 670F 2844 JR Z,$6755 6711 13 INC DE 6712 4E LD C,(HL) 6713 23 INC HL 6714 3A1566 LD A,($6615) 6717 A9 XOR C 6718 1F RRA 6719 1F RRA 671A 4F LD C,A 671B 1A LD A,(DE) 671C E6C0 AND $C0 671E B1 OR C 671F 12 LD (DE),A 6720 14 INC D 6721 10EF DJNZ $6712 6723 C9 RET 6724 4E LD C,(HL) 6725 23 INC HL 6726 3A1566 LD A,($6615) 6729 A9 XOR C 672A 4F LD C,A 672B 1A LD A,(DE) 672C E603 AND $03 672E B1 OR C 672F 12 LD (DE),A 6730 14 INC D 6731 10F1 DJNZ $6724 6733 C9 RET 6734 4E LD C,(HL) 6735 23 INC HL 6736 3A1566 LD A,($6615) 6739 A9 XOR C 673A C5 PUSH BC 673B 0600 LD B,$00 673D 17 RLA 673E CB10 RL B 6740 17 RLA 6741 CB10 RL B 6743 4F LD C,A 6744 1A LD A,(DE) 6745 E6FC AND $FC 6747 B0 OR B 6748 12 LD (DE),A 6749 13 INC DE 674A 1A LD A,(DE) 674B E60F AND $0F 674D B1 OR C 674E 12 LD (DE),A 674F 1B DEC DE 6750 14 INC D 6751 C1 POP BC 6752 10E0 DJNZ $6734 6754 C9 RET 6755 4E LD C,(HL) 6756 23 INC HL 6757 3A1566 LD A,($6615) 675A A9 XOR C 675B C5 PUSH BC 675C 0600 LD B,$00 675E 17 RLA 675F CB10 RL B 6761 17 RLA 6762 CB10 RL B 6764 17 RLA 6765 CB10 RL B 6767 17 RLA 6768 CB10 RL B 676A 4F LD C,A 676B 1A LD A,(DE) 676C E6F0 AND $F0 676E B0 OR B 676F 12 LD (DE),A 6770 13 INC DE 6771 1A LD A,(DE) 6772 E63F AND $3F 6774 B1 OR C 6775 12 LD (DE),A 6776 1B DEC DE 6777 14 INC D 6778 C1 POP BC 6779 10DA DJNZ $6755 677B C9 RET 677C 219D67 LD HL,$679D 677F E5 PUSH HL 6780 21E367 LD HL,$67E3 6783 1803 JR $6788 6785 21A367 LD HL,$67A3 6788 FEFF CP $FF 678A C8 RET Z 678B 110300 LD DE,$0003 678E 4E LD C,(HL) 678F B9 CP C 6790 2805 JR Z,$6797 6792 19 ADD HL,DE 6793 0C INC C 6794 20F8 JR NZ,$678E 6796 C9 RET 6797 23 INC HL 6798 5E LD E,(HL) 6799 23 INC HL 679A 56 LD D,(HL) 679B EB EX DE,HL 679C E9 JP (HL) 679D 211066 LD HL,$6610 67A0 CBB6 RES 6,(HL) 67A2 C9 RET 67A3 02 DEFB $02 67A4 55 DEFB $55 67A5 68 DEFB $68 67A6 03 DEFB $03 67A7 64 DEFB $64 67A8 68 DEFB $68 67A9 04 DEFB $04 67AA 71 DEFB $71 67AB 68 DEFB $68 67AC 05 DEFB $05 67AD B8 DEFB $B8 67AE 69 DEFB $69 67AF 06 DEFB $06 67B0 D4 DEFB $D4 67B1 69 DEFB $69 67B2 07 DEFB $07 67B3 B4 DEFB $B4 67B4 68 DEFB $68 67B5 08 DEFB $08 67B6 28 DEFB $28 67B7 69 DEFB $69 67B8 09 DEFB $09 67B9 30 DEFB $30 67BA 69 DEFB $69 67BB 0A DEFB $0A 67BC 5D DEFB $5D 67BD 69 DEFB $69 67BE 0D DEFB $0D 67BF 69 DEFB $69 67C0 69 DEFB $69 67C1 0E DEFB $0E 67C2 A2 DEFB $A2 67C3 68 DEFB $68 67C4 0F DEFB $0F 67C5 AC DEFB $AC 67C6 68 DEFB $68 67C7 12 DEFB $12 67C8 09 DEFB $09 67C9 6A DEFB $6A 67CA 15 DEFB $15 67CB 37 DEFB $37 67CC 69 DEFB $69 67CD 16 DEFB $16 67CE 21 DEFB $21 67CF 6A DEFB $6A 67D0 17 DEFB $17 67D1 2A DEFB $2A 67D2 6A DEFB $6A 67D3 18 DEFB $18 67D4 4A DEFB $4A 67D5 6A DEFB $6A 67D6 19 DEFB $19 67D7 74 DEFB $74 67D8 6A DEFB $6A 67D9 1A DEFB $1A 67DA 13 DEFB $13 67DB 69 DEFB $69 67DC 1B DEFB $1B 67DD 9C DEFB $9C 67DE 68 DEFB $68 67DF 7F DEFB $7F 67E0 EE DEFB $EE 67E1 69 DEFB $69 67E2 FF DEFB $FF 67E3 30 DEFB $30 67E4 26 DEFB $26 67E5 68 DEFB $68 67E6 31 DEFB $31 67E7 88 DEFB $88 67E8 68 DEFB $68 67E9 33 DEFB $33 67EA 84 DEFB $84 67EB 68 DEFB $68 67EC 34 DEFB $34 67ED 80 DEFB $80 67EE 68 DEFB $68 67EF 35 DEFB $35 67F0 78 DEFB $78 67F1 68 DEFB $68 67F2 41 DEFB $41 67F3 13 DEFB $13 67F4 69 DEFB $69 67F5 42 DEFB $42 67F6 1B DEFB $1B 67F7 69 DEFB $69 67F8 43 DEFB $43 67F9 37 DEFB $37 67FA 69 DEFB $69 67FB 44 DEFB $44 67FC 28 DEFB $28 67FD 69 DEFB $69 67FE 45 DEFB $45 67FF 4A DEFB $4A 6800 6A DEFB $6A 6801 48 DEFB $48 6802 74 DEFB $74 6803 6A DEFB $6A 6804 49 DEFB $49 6805 53 DEFB $53 6806 69 DEFB $69 6807 4A DEFB $4A 6808 2A DEFB $2A 6809 6A DEFB $6A 680A 4B DEFB $4B 680B 21 DEFB $21 680C 6A DEFB $6A 680D 4C DEFB $4C 680E D4 DEFB $D4 680F 69 DEFB $69 6810 4D DEFB $4D 6811 B8 DEFB $B8 6812 69 DEFB $69 6813 4E DEFB $4E 6814 A2 DEFB $A2 6815 68 DEFB $68 6816 4F DEFB $4F 6817 AC DEFB $AC 6818 68 DEFB $68 6819 52 DEFB $52 681A 09 DEFB $09 681B 6A DEFB $6A 681C 53 DEFB $53 681D EE DEFB $EE 681E 69 DEFB $69 681F 54 DEFB $54 6820 3E DEFB $3E 6821 68 DEFB $68 6822 59 DEFB $59 6823 92 DEFB $92 6824 68 DEFB $68 6825 FF DEFB $FF 6826 3A3FF6 LD A,($F63F) 6829 CD9EFA CALL $FA9E 682C 210066 LD HL,$6600 682F 110866 LD DE,$6608 6832 010800 LD BC,$0008 6835 EDB0 LDIR 6837 3A44F6 LD A,($F644) 683A 12 LD (DE),A 683B C34A6A JP $6A4A 683E CD4A6A CALL $6A4A 6841 218062 LD HL,$6280 6844 017800 LD BC,$0078 6847 3E48 LD A,$48 6849 CD576B CALL $6B57 684C CD936B CALL $6B93 684F CD2066 CALL $6620 6852 C34A6A JP $6A4A 6855 3E07 LD A,$07 6857 A0 AND B 6858 47 LD B,A 6859 2140F6 LD HL,$F640 685C F3 DI 685D 7E LD A,(HL) 685E E6F8 AND $F8 6860 B0 OR B 6861 77 LD (HL),A 6862 FB EI 6863 C9 RET 6864 78 LD A,B 6865 3243F6 LD ($F643),A 6868 21005B LD HL,$5B00 686B 013000 LD BC,$0030 686E C3576B JP $6B57 6871 78 LD A,B 6872 323FF6 LD ($F63F),A 6875 C39EFA JP $FA9E 6878 3E01 LD A,$01 687A 211066 LD HL,$6610 687D AE XOR (HL) 687E 77 LD (HL),A 687F C9 RET 6880 3E02 LD A,$02 6882 18F6 JR $687A 6884 3E04 LD A,$04 6886 18F2 JR $687A 6888 211066 LD HL,$6610 688B 7E LD A,(HL) 688C E687 AND $87 688E F620 OR $20 6890 77 LD (HL),A 6891 C9 RET 6892 211066 LD HL,$6610 6895 7E LD A,(HL) 6896 E687 AND $87 6898 F628 OR $28 689A 77 LD (HL),A 689B C9 RET 689C 211066 LD HL,$6610 689F CBF6 SET 6,(HL) 68A1 C9 RET 68A2 211B66 LD HL,$661B 68A5 7E LD A,(HL) 68A6 EE80 XOR $80 68A8 CBFE SET 7,(HL) 68AA 18CE JR $687A 68AC 211B66 LD HL,$661B 68AF 7E LD A,(HL) 68B0 CBBE RES 7,(HL) 68B2 18C6 JR $687A 68B4 0EFF LD C,$FF 68B6 1802 JR $68BA 68B8 0E00 LD C,$00 68BA 0610 LD B,$10 68BC F3 DI 68BD 3A40F6 LD A,($F640) 68C0 EE10 XOR $10 68C2 3240F6 LD ($F640),A 68C5 D3FE OUT ($FE),A 68C7 FB EI 68C8 C5 PUSH BC 68C9 CB01 RLC C 68CB 2002 JR NZ,$68CF 68CD 0610 LD B,$10 68CF 10FE DJNZ $68CF 68D1 C1 POP BC 68D2 10E8 DJNZ $68BC 68D4 C9 RET 68D5 3E18 LD A,$18 68D7 AE XOR (HL) 68D8 77 LD (HL),A 68D9 CB5F BIT 3,A 68DB 281F JR Z,$68FC 68DD 3A1166 LD A,($6611) 68E0 D620 SUB $20 68E2 3811 JR C,$68F5 68E4 FE50 CP $50 68E6 3010 JR NC,$68F8 68E8 320C66 LD ($660C),A 68EB CB66 BIT 4,(HL) 68ED C0 RET NZ 68EE 3E87 LD A,$87 68F0 A6 AND (HL) 68F1 77 LD (HL),A 68F2 C38269 JP $6982 68F5 AF XOR A 68F6 18F0 JR $68E8 68F8 3E4F LD A,$4F 68FA 18EC JR $68E8 68FC 3A1166 LD A,($6611) 68FF D620 SUB $20 6901 3809 JR C,$690C 6903 FE18 CP $18 6905 3008 JR NC,$690F 6907 320D66 LD ($660D),A 690A 18DF JR $68EB 690C AF XOR A 690D 18F8 JR $6907 690F 3E17 LD A,$17 6911 18F4 JR $6907 6913 0600 LD B,$00 6915 0E17 LD C,$17 6917 16FF LD D,$FF 6919 1806 JR $6921 691B 0617 LD B,$17 691D 0E00 LD C,$00 691F 1601 LD D,$01 6921 1E04 LD E,$04 6923 210D66 LD HL,$660D 6926 181A JR $6942 6928 0600 LD B,$00 692A 0E4F LD C,$4F 692C 16FF LD D,$FF 692E 180D JR $693D 6930 210C66 LD HL,$660C 6933 7E LD A,(HL) 6934 F607 OR $07 6936 77 LD (HL),A 6937 064F LD B,$4F 6939 0E00 LD C,$00 693B 1601 LD D,$01 693D 1E02 LD E,$02 693F 210C66 LD HL,$660C 6942 7E LD A,(HL) 6943 B8 CP B 6944 2035 JR NZ,$697B 6946 3A1066 LD A,($6610) 6949 A3 AND E 694A C0 RET NZ 694B 71 LD (HL),C 694C CB53 BIT 2,E 694E C0 RET NZ 694F CB7A BIT 7,D 6951 280A JR Z,$695D 6953 AF XOR A 6954 210D66 LD HL,$660D 6957 BE CP (HL) 6958 287A JR Z,$69D4 695A 35 DEC (HL) 695B 1825 JR $6982 695D 3E17 LD A,$17 695F 210D66 LD HL,$660D 6962 BE CP (HL) 6963 CA886A JP Z,$6A88 6966 34 INC (HL) 6967 1819 JR $6982 6969 3A1066 LD A,($6610) 696C CB47 BIT 0,A 696E C45D69 CALL NZ,$695D 6971 AF XOR A 6972 320C66 LD ($660C),A 6975 CD8269 CALL $6982 6978 C33566 JP $6635 697B 34 INC (HL) 697C CB7A BIT 7,D 697E 2802 JR Z,$6982 6980 35 DEC (HL) 6981 35 DEC (HL) 6982 3A0D66 LD A,($660D) 6985 CD7B6A CALL $6A7B 6988 3A0C66 LD A,($660C) 698B 4F LD C,A 698C 09 ADD HL,BC 698D 11005B LD DE,$5B00 6990 19 ADD HL,DE 6991 F3 DI 6992 220866 LD ($6608),HL 6995 2A0C66 LD HL,($660C) 6998 220E66 LD ($660E),HL 699B FB EI 699C C9 RET 699D 3A0D66 LD A,($660D) 69A0 3C INC A 69A1 CD7B6A CALL $6A7B 69A4 01005B LD BC,$5B00 69A7 09 ADD HL,BC 69A8 C9 RET 69A9 CD9D69 CALL $699D 69AC EB EX DE,HL 69AD 218062 LD HL,$6280 69B0 B7 OR A 69B1 ED52 SBC HL,DE 69B3 44 LD B,H 69B4 4D LD C,L 69B5 62 LD H,D 69B6 6B LD L,E 69B7 C9 RET 69B8 CDA969 CALL $69A9 69BB 2006 JR NZ,$69C3 69BD CDE569 CALL $69E5 69C0 C3736B JP $6B73 69C3 D5 PUSH DE 69C4 115000 LD DE,$0050 69C7 B7 OR A 69C8 ED52 SBC HL,DE 69CA D1 POP DE 69CB EB EX DE,HL 69CC EDB0 LDIR 69CE CDE569 CALL $69E5 69D1 C3936B JP $6B93 69D4 CDA969 CALL $69A9 69D7 28E4 JR Z,$69BD 69D9 212F62 LD HL,$622F 69DC 117F62 LD DE,$627F 69DF EDB8 LDDR 69E1 13 INC DE 69E2 EB EX DE,HL 69E3 18E9 JR $69CE 69E5 CD516B CALL $6B51 69E8 AF XOR A 69E9 320C66 LD ($660C),A 69EC 1894 JR $6982 69EE CD9D69 CALL $699D 69F1 2B DEC HL 69F2 ED5B0866 LD DE,($6608) 69F6 B7 OR A 69F7 ED52 SBC HL,DE 69F9 2807 JR Z,$6A02 69FB 44 LD B,H 69FC 4D LD C,L 69FD 62 LD H,D 69FE 6B LD L,E 69FF 23 INC HL 6A00 EDB0 LDIR 6A02 CD496B CALL $6B49 6A05 12 LD (DE),A 6A06 C3736B JP $6B73 6A09 CD9D69 CALL $699D 6A0C 2B DEC HL 6A0D 54 LD D,H 6A0E 5D LD E,L 6A0F ED4B0866 LD BC,($6608) 6A13 B7 OR A 6A14 ED42 SBC HL,BC 6A16 28EA JR Z,$6A02 6A18 44 LD B,H 6A19 4D LD C,L 6A1A 62 LD H,D 6A1B 6B LD L,E 6A1C 2B DEC HL 6A1D EDB8 LDDR 6A1F 18E1 JR $6A02 6A21 CD9D69 CALL $699D 6A24 CD336A CALL $6A33 6A27 C3736B JP $6B73 6A2A 218062 LD HL,$6280 6A2D CD336A CALL $6A33 6A30 C3936B JP $6B93 6A33 ED5B0866 LD DE,($6608) 6A37 B7 OR A 6A38 ED52 SBC HL,DE 6A3A 44 LD B,H 6A3B 4D LD C,L 6A3C CD496B CALL $6B49 6A3F 12 LD (DE),A 6A40 62 LD H,D 6A41 6B LD L,E 6A42 13 INC DE 6A43 0B DEC BC 6A44 78 LD A,B 6A45 B1 OR C 6A46 C8 RET Z 6A47 EDB0 LDIR 6A49 C9 RET 6A4A CDF66B CALL $6BF6 6A4D 218062 LD HL,$6280 6A50 017800 LD BC,$0078 6A53 CD496B CALL $6B49 6A56 CD576B CALL $6B57 6A59 210058 LD HL,$5800 6A5C 018001 LD BC,$0180 6A5F CD406B CALL $6B40 6A62 CD576B CALL $6B57 6A65 21005B LD HL,$5B00 6A68 013000 LD BC,$0030 6A6B 3A43F6 LD A,($F643) 6A6E CD576B CALL $6B57 6A71 CDED6B CALL $6BED 6A74 AF XOR A 6A75 320D66 LD ($660D),A 6A78 C37169 JP $6971 6A7B 210000 LD HL,$0000 6A7E 115000 LD DE,$0050 6A81 47 LD B,A 6A82 B7 OR A 6A83 C8 RET Z 6A84 19 ADD HL,DE 6A85 10FD DJNZ $6A84 6A87 C9 RET 6A88 CDF66B CALL $6BF6 6A8B 21505B LD HL,$5B50 6A8E 11005B LD DE,$5B00 6A91 013007 LD BC,$0730 6A94 EDB0 LDIR 6A96 CD516B CALL $6B51 6A99 CD8269 CALL $6982 6A9C AF XOR A 6A9D 321266 LD ($6612),A 6AA0 321366 LD ($6613),A 6AA3 321466 LD ($6614),A 6AA6 ED4B48F6 LD BC,($F648) 6AAA 0C INC C 6AAB C5 PUSH BC 6AAC 3EC1 LD A,$C1 6AAE 91 SUB C 6AAF 47 LD B,A 6AB0 C5 PUSH BC 6AB1 CDD16A CALL $6AD1 6AB4 012000 LD BC,$0020 6AB7 EDB0 LDIR 6AB9 C1 POP BC 6ABA 78 LD A,B 6ABB B9 CP C 6ABC 300B JR NC,$6AC9 6ABE C5 PUSH BC 6ABF 010200 LD BC,$0002 6AC2 CD406B CALL $6B40 6AC5 CD576B CALL $6B57 6AC8 C1 POP BC 6AC9 10E5 DJNZ $6AB0 6ACB C1 POP BC 6ACC 10DD DJNZ $6AAB 6ACE C3ED6B JP $6BED 6AD1 3A1366 LD A,($6613) 6AD4 FE08 CP $08 6AD6 3828 JR C,$6B00 6AD8 AF XOR A 6AD9 321366 LD ($6613),A 6ADC 3A1266 LD A,($6612) 6ADF FEE0 CP $E0 6AE1 3818 JR C,$6AFB 6AE3 AF XOR A 6AE4 321266 LD ($6612),A 6AE7 3A1466 LD A,($6614) 6AEA FE10 CP $10 6AEC 3806 JR C,$6AF4 6AEE AF XOR A 6AEF 321466 LD ($6614),A 6AF2 180C JR $6B00 6AF4 C608 ADD A,$08 6AF6 321466 LD ($6614),A 6AF9 1805 JR $6B00 6AFB C620 ADD A,$20 6AFD 321266 LD ($6612),A 6B00 2A1266 LD HL,($6612) 6B03 7C LD A,H 6B04 3C INC A 6B05 321366 LD ($6613),A 6B08 3A1466 LD A,($6614) 6B0B B4 OR H 6B0C F640 OR $40 6B0E 67 LD H,A 6B0F 5D LD E,L 6B10 54 LD D,H 6B11 3E07 LD A,$07 6B13 A4 AND H 6B14 47 LD B,A 6B15 3EE0 LD A,$E0 6B17 A5 AND L 6B18 0F RRCA 6B19 0F RRCA 6B1A B0 OR B 6B1B 47 LD B,A 6B1C 7C LD A,H 6B1D 07 RLCA 6B1E 07 RLCA 6B1F 07 RLCA 6B20 E6C0 AND $C0 6B22 B0 OR B 6B23 47 LD B,A 6B24 3A48F6 LD A,($F648) 6B27 80 ADD A,B 6B28 FEC0 CP $C0 6B2A D0 RET NC 6B2B 47 LD B,A 6B2C E638 AND $38 6B2E 07 RLCA 6B2F 07 RLCA 6B30 6F LD L,A 6B31 3EC0 LD A,$C0 6B33 A0 AND B 6B34 0F RRCA 6B35 0F RRCA 6B36 0F RRCA 6B37 F640 OR $40 6B39 4F LD C,A 6B3A 3E07 LD A,$07 6B3C A0 AND B 6B3D B1 OR C 6B3E 67 LD H,A 6B3F C9 RET 6B40 3A1066 LD A,($6610) 6B43 E680 AND $80 6B45 C8 RET Z 6B46 F6FF OR $FF 6B48 C9 RET 6B49 3A1066 LD A,($6610) 6B4C E680 AND $80 6B4E F620 OR $20 6B50 C9 RET 6B51 010500 LD BC,$0005 6B54 CD496B CALL $6B49 6B57 F3 DI 6B58 ED731666 LD ($6616),SP 6B5C F9 LD SP,HL 6B5D 67 LD H,A 6B5E 6F LD L,A 6B5F E5 PUSH HL 6B60 E5 PUSH HL 6B61 E5 PUSH HL 6B62 E5 PUSH HL 6B63 E5 PUSH HL 6B64 E5 PUSH HL 6B65 E5 PUSH HL 6B66 E5 PUSH HL 6B67 0B DEC BC 6B68 78 LD A,B 6B69 B1 OR C 6B6A C25F6B JP NZ,$6B5F 6B6D ED7B1666 LD SP,($6616) 6B71 FB EI 6B72 C9 RET 6B73 CDAE6B CALL $6BAE 6B76 2A0E66 LD HL,($660E) 6B79 E5 PUSH HL 6B7A 3A0D66 LD A,($660D) 6B7D CD7B6A CALL $6A7B 6B80 11005B LD DE,$5B00 6B83 19 ADD HL,DE 6B84 09 ADD HL,BC 6B85 3A0D66 LD A,($660D) 6B88 57 LD D,A 6B89 CDBD6B CALL $6BBD 6B8C E1 POP HL 6B8D 220E66 LD ($660E),HL 6B90 C3ED6B JP $6BED 6B93 CDAE6B CALL $6BAE 6B96 2A0E66 LD HL,($660E) 6B99 E5 PUSH HL 6B9A 265B LD H,$5B 6B9C 69 LD L,C 6B9D 1600 LD D,$00 6B9F 0618 LD B,$18 6BA1 C5 PUSH BC 6BA2 CDBD6B CALL $6BBD 6BA5 14 INC D 6BA6 0E28 LD C,$28 6BA8 09 ADD HL,BC 6BA9 C1 POP BC 6BAA 10F5 DJNZ $6BA1 6BAC 18DE JR $6B8C 6BAE AF XOR A 6BAF 324AF6 LD ($F64A),A 6BB2 3A50F6 LD A,($F650) 6BB5 E618 AND $18 6BB7 0E00 LD C,$00 6BB9 C8 RET Z 6BBA C3C973 JP $73C9 6BBD 59 LD E,C 6BBE 0628 LD B,$28 6BC0 ED530E66 LD ($660E),DE 6BC4 C5 PUSH BC 6BC5 D5 PUSH DE 6BC6 E5 PUSH HL 6BC7 46 LD B,(HL) 6BC8 CDA566 CALL $66A5 6BCB E1 POP HL 6BCC D1 POP DE 6BCD C1 POP BC 6BCE 1C INC E 6BCF 23 INC HL 6BD0 10EE DJNZ $6BC0 6BD2 C9 RET 6BD3 2A0866 LD HL,($6608) 6BD6 ED5B0A66 LD DE,($660A) 6BDA B7 OR A 6BDB ED52 SBC HL,DE 6BDD 2020 JR NZ,$6BFF 6BDF 3E80 LD A,$80 6BE1 211A66 LD HL,$661A 6BE4 AE XOR (HL) 6BE5 77 LD (HL),A 6BE6 1A LD A,(DE) 6BE7 E67F AND $7F 6BE9 B6 OR (HL) 6BEA C3A466 JP $66A4 6BED 214AF6 LD HL,$F64A 6BF0 36FF LD (HL),$FF 6BF2 23 INC HL 6BF3 3601 LD (HL),$01 6BF5 C9 RET 6BF6 214AF6 LD HL,$F64A 6BF9 3600 LD (HL),$00 6BFB ED5B0A66 LD DE,($660A) 6BFF 1A LD A,(DE) 6C00 2A0E66 LD HL,($660E) 6C03 E5 PUSH HL 6C04 2A1C66 LD HL,($661C) 6C07 220E66 LD ($660E),HL 6C0A CDA466 CALL $66A4 6C0D E1 POP HL 6C0E 220E66 LD ($660E),HL 6C11 221C66 LD ($661C),HL 6C14 2A0866 LD HL,($6608) 6C17 220A66 LD ($660A),HL 6C1A 7E LD A,(HL) 6C1B E680 AND $80 6C1D 321A66 LD ($661A),A 6C20 3E01 LD A,$01 6C22 324BF6 LD ($F64B),A 6C25 C9 RET 6C26 21EB6C LD HL,$6CEB 6C29 3A50F6 LD A,($F650) 6C2C CB77 BIT 6,A 6C2E 2803 JR Z,$6C33 6C30 211B6D LD HL,$6D1B 6C33 221866 LD ($6618),HL 6C36 2E37 LD L,$37 6C38 06FE LD B,$FE 6C3A 0EFE LD C,$FE 6C3C 11FFFF LD DE,$FFFF 6C3F CDAAF9 CALL $F9AA 6C42 2F CPL 6C43 E63F AND $3F 6C45 280E JR Z,$6C55 6C47 67 LD H,A 6C48 7D LD A,L 6C49 14 INC D 6C4A C0 RET NZ 6C4B D608 SUB $08 6C4D CB3C SRL H 6C4F 30FA JR NC,$6C4B 6C51 53 LD D,E 6C52 5F LD E,A 6C53 20F4 JR NZ,$6C49 6C55 2D DEC L 6C56 CB00 RLC B 6C58 38E5 JR C,$6C3F 6C5A 7A LD A,D 6C5B 3C INC A 6C5C 201E JR NZ,$6C7C 6C5E 7B LD A,E 6C5F 3C INC A 6C60 C8 RET Z 6C61 1600 LD D,$00 6C63 7B LD A,E 6C64 FE2A CP $2A 6C66 2854 JR Z,$6CBC 6C68 2A1866 LD HL,($6618) 6C6B 19 ADD HL,DE 6C6C 7E LD A,(HL) 6C6D FEFF CP $FF 6C6F 205E JR NZ,$6CCF 6C71 214FF6 LD HL,$F64F 6C74 3606 LD (HL),$06 6C76 2B DEC HL 6C77 77 LD (HL),A 6C78 2B DEC HL 6C79 3601 LD (HL),$01 6C7B C9 RET 6C7C FE21 CP $21 6C7E 281B JR Z,$6C9B 6C80 FE08 CP $08 6C82 280F JR Z,$6C93 6C84 FE30 CP $30 6C86 7B LD A,E 6C87 2821 JR Z,$6CAA 6C89 5A LD E,D 6C8A 57 LD D,A 6C8B 3C INC A 6C8C FE21 CP $21 6C8E 280B JR Z,$6C9B 6C90 FE08 CP $08 6C92 C0 RET NZ 6C93 21AB6D LD HL,$6DAB 6C96 221866 LD ($6618),HL 6C99 18C6 JR $6C61 6C9B 217B6D LD HL,$6D7B 6C9E 18F6 JR $6C96 6CA0 2150F6 LD HL,$F650 6CA3 CBBE RES 7,(HL) 6CA5 214B6D LD HL,$6D4B 6CA8 18EC JR $6C96 6CAA FE24 CP $24 6CAC 281B JR Z,$6CC9 6CAE FE2B CP $2B 6CB0 281B JR Z,$6CCD 6CB2 FE20 CP $20 6CB4 20EA JR NZ,$6CA0 6CB6 2150F6 LD HL,$F650 6CB9 CBFE SET 7,(HL) 6CBB C9 RET 6CBC 2150F6 LD HL,$F650 6CBF CB7E BIT 7,(HL) 6CC1 CBBE RES 7,(HL) 6CC3 28A3 JR Z,$6C68 6CC5 3E09 LD A,$09 6CC7 1806 JR $6CCF 6CC9 3E90 LD A,$90 6CCB 1802 JR $6CCF 6CCD 3E7F LD A,$7F 6CCF 214EF6 LD HL,$F64E 6CD2 BE CP (HL) 6CD3 23 INC HL 6CD4 2809 JR Z,$6CDF 6CD6 3606 LD (HL),$06 6CD8 2B DEC HL 6CD9 77 LD (HL),A 6CDA 2B DEC HL 6CDB 2B DEC HL 6CDC 36FF LD (HL),$FF 6CDE C9 RET 6CDF 35 DEC (HL) 6CE0 C0 RET NZ 6CE1 3601 LD (HL),$01 6CE3 2B DEC HL 6CE4 2B DEC HL 6CE5 3601 LD (HL),$01 6CE7 2B DEC HL 6CE8 36FF LD (HL),$FF 6CEA C9 RET 6CEB 83 DEFB $83 6CEC 82 DEFB $82 6CED FE DEFB $FE 6CEE 08 DEFB $08 6CEF 1B DEFB $1B 6CF0 0A DEFB $0A 6CF1 13 DEFB $13 6CF2 FF DEFB $FF 6CF3 62 DEFB $62 6CF4 68 DEFB $68 6CF5 79 DEFB $79 6CF6 36 DEFB $36 6CF7 35 DEFB $35 6CF8 74 DEFB $74 6CF9 67 DEFB $67 6CFA 76 DEFB $76 6CFB 6E DEFB $6E 6CFC 6A DEFB $6A 6CFD 75 DEFB $75 6CFE 37 DEFB $37 6CFF 34 DEFB $34 6D00 72 DEFB $72 6D01 66 DEFB $66 6D02 63 DEFB $63 6D03 6D DEFB $6D 6D04 6B DEFB $6B 6D05 69 DEFB $69 6D06 38 DEFB $38 6D07 33 DEFB $33 6D08 65 DEFB $65 6D09 64 DEFB $64 6D0A 78 DEFB $78 6D0B FF DEFB $FF 6D0C 6C DEFB $6C 6D0D 6F DEFB $6F 6D0E 39 DEFB $39 6D0F 32 DEFB $32 6D10 77 DEFB $77 6D11 73 DEFB $73 6D12 7A DEFB $7A 6D13 20 DEFB $20 6D14 0D DEFB $0D 6D15 70 DEFB $70 6D16 30 DEFB $30 6D17 31 DEFB $31 6D18 71 DEFB $71 6D19 61 DEFB $61 6D1A FF DEFB $FF 6D1B 83 DEFB $83 6D1C 82 DEFB $82 6D1D 81 DEFB $81 6D1E 08 DEFB $08 6D1F 1B DEFB $1B 6D20 0A DEFB $0A 6D21 13 DEFB $13 6D22 FF DEFB $FF 6D23 42 DEFB $42 6D24 48 DEFB $48 6D25 59 DEFB $59 6D26 36 DEFB $36 6D27 35 DEFB $35 6D28 54 DEFB $54 6D29 47 DEFB $47 6D2A 56 DEFB $56 6D2B 4E DEFB $4E 6D2C 4A DEFB $4A 6D2D 55 DEFB $55 6D2E 37 DEFB $37 6D2F 34 DEFB $34 6D30 52 DEFB $52 6D31 46 DEFB $46 6D32 43 DEFB $43 6D33 4D DEFB $4D 6D34 4B DEFB $4B 6D35 49 DEFB $49 6D36 38 DEFB $38 6D37 33 DEFB $33 6D38 45 DEFB $45 6D39 44 DEFB $44 6D3A 58 DEFB $58 6D3B FF DEFB $FF 6D3C 4C DEFB $4C 6D3D 4F DEFB $4F 6D3E 39 DEFB $39 6D3F 32 DEFB $32 6D40 57 DEFB $57 6D41 53 DEFB $53 6D42 5A DEFB $5A 6D43 20 DEFB $20 6D44 0D DEFB $0D 6D45 50 DEFB $50 6D46 30 DEFB $30 6D47 31 DEFB $31 6D48 51 DEFB $51 6D49 41 DEFB $41 6D4A FF DEFB $FF 6D4B 83 DEFB $83 6D4C 82 DEFB $82 6D4D 81 DEFB $81 6D4E 08 DEFB $08 6D4F 1B DEFB $1B 6D50 0A DEFB $0A 6D51 13 DEFB $13 6D52 FF DEFB $FF 6D53 42 DEFB $42 6D54 48 DEFB $48 6D55 59 DEFB $59 6D56 18 DEFB $18 6D57 13 DEFB $13 6D58 54 DEFB $54 6D59 47 DEFB $47 6D5A 56 DEFB $56 6D5B 4E DEFB $4E 6D5C 4A DEFB $4A 6D5D 55 DEFB $55 6D5E 05 DEFB $05 6D5F 34 DEFB $34 6D60 52 DEFB $52 6D61 46 DEFB $46 6D62 43 DEFB $43 6D63 4D DEFB $4D 6D64 4B DEFB $4B 6D65 49 DEFB $49 6D66 04 DEFB $04 6D67 33 DEFB $33 6D68 45 DEFB $45 6D69 44 DEFB $44 6D6A 58 DEFB $58 6D6B FF DEFB $FF 6D6C 4C DEFB $4C 6D6D 4F DEFB $4F 6D6E E0 DEFB $E0 6D6F 90 DEFB $90 6D70 57 DEFB $57 6D71 53 DEFB $53 6D72 5A DEFB $5A 6D73 20 DEFB $20 6D74 0D DEFB $0D 6D75 50 DEFB $50 6D76 7F DEFB $7F 6D77 08 DEFB $08 6D78 51 DEFB $51 6D79 41 DEFB $41 6D7A FF DEFB $FF 6D7B 87 DEFB $87 6D7C 86 DEFB $86 6D7D 85 DEFB $85 6D7E 08 DEFB $08 6D7F 1B DEFB $1B 6D80 0A DEFB $0A 6D81 EE DEFB $EE 6D82 FF DEFB $FF 6D83 2A DEFB $2A 6D84 5E DEFB $5E 6D85 5B DEFB $5B 6D86 26 DEFB $26 6D87 25 DEFB $25 6D88 3E DEFB $3E 6D89 7D DEFB $7D 6D8A 2F DEFB $2F 6D8B 2C DEFB $2C 6D8C 2D DEFB $2D 6D8D 5D DEFB $5D 6D8E 27 DEFB $27 6D8F 24 DEFB $24 6D90 3C DEFB $3C 6D91 7B DEFB $7B 6D92 3F DEFB $3F 6D93 2E DEFB $2E 6D94 2B DEFB $2B 6D95 FF DEFB $FF 6D96 28 DEFB $28 6D97 23 DEFB $23 6D98 FF DEFB $FF 6D99 5C DEFB $5C 6D9A 60 DEFB $60 6D9B FF DEFB $FF 6D9C 3D DEFB $3D 6D9D 3B DEFB $3B 6D9E 29 DEFB $29 6D9F 40 DEFB $40 6DA0 FF DEFB $FF 6DA1 7C DEFB $7C 6DA2 3A DEFB $3A 6DA3 20 DEFB $20 6DA4 0D DEFB $0D 6DA5 22 DEFB $22 6DA6 5F DEFB $5F 6DA7 21 DEFB $21 6DA8 FF DEFB $FF 6DA9 7E DEFB $7E 6DAA FF DEFB $FF 6DAB 8B DEFB $8B 6DAC 8A DEFB $8A 6DAD 89 DEFB $89 6DAE 08 DEFB $08 6DAF 1B DEFB $1B 6DB0 0A DEFB $0A 6DB1 13 DEFB $13 6DB2 FF DEFB $FF 6DB3 02 DEFB $02 6DB4 08 DEFB $08 6DB5 19 DEFB $19 6DB6 FF DEFB $FF 6DB7 FF DEFB $FF 6DB8 14 DEFB $14 6DB9 07 DEFB $07 6DBA 16 DEFB $16 6DBB 0E DEFB $0E 6DBC 0A DEFB $0A 6DBD 15 DEFB $15 6DBE FF DEFB $FF 6DBF FF DEFB $FF 6DC0 12 DEFB $12 6DC1 06 DEFB $06 6DC2 03 DEFB $03 6DC3 0D DEFB $0D 6DC4 0B DEFB $0B 6DC5 09 DEFB $09 6DC6 FF DEFB $FF 6DC7 FF DEFB $FF 6DC8 05 DEFB $05 6DC9 04 DEFB $04 6DCA 18 DEFB $18 6DCB FF DEFB $FF 6DCC 0C DEFB $0C 6DCD 0F DEFB $0F 6DCE FF DEFB $FF 6DCF FF DEFB $FF 6DD0 17 DEFB $17 6DD1 13 DEFB $13 6DD2 1A DEFB $1A 6DD3 20 DEFB $20 6DD4 0D DEFB $0D 6DD5 10 DEFB $10 6DD6 FF DEFB $FF 6DD7 FF DEFB $FF 6DD8 11 DEFB $11 6DD9 01 DEFB $01 6DDA FF DEFB $FF 6DDB 00 DEFB $00 6DDC 00 DEFB $00 6DDD 00 DEFB $00 6DDE 00 DEFB $00 6DDF 00 DEFB $00 6DE0 21 DEFB $21 6DE1 00 DEFB $00 6DE2 58 DEFB $58 6DE3 11 DEFB $11 6DE4 01 DEFB $01 6DE5 58 DEFB $58 6DE6 01 DEFB $01 6DE7 FF DEFB $FF 6DE8 02 DEFB $02 6DE9 36 DEFB $36 6DEA 06 DEFB $06 6DEB ED DEFB $ED 6DEC B0 DEFB $B0 6DED 21 DEFB $21 6DEE 40 DEFB $40 6DEF F6 DEFB $F6 6DF0 3E DEFB $3E 6DF1 06 DEFB $06 6DF2 32 DEFB $32 6DF3 43 DEFB $43 6DF4 F6 DEFB $F6 6DF5 3E DEFB $3E 6DF6 F8 DEFB $F8 6DF7 A6 DEFB $A6 6DF8 77 DEFB $77 6DF9 00 DEFB $00 6DFA 00 DEFB $00 6DFB 00 DEFB $00 6DFC 00 DEFB $00 6DFD C3 DEFB $C3 6DFE 64 DEFB $64 6DFF F9 DEFB $F9 6E00 00 DEFB $00 6E01 00 DEFB $00 6E02 00 DEFB $00 6E03 00 DEFB $00 6E04 00 DEFB $00 6E05 00 DEFB $00 6E06 00 DEFB $00 6E07 00 DEFB $00 6E08 04 DEFB $04 6E09 00 DEFB $00 6E0A 00 DEFB $00 6E0B 00 DEFB $00 6E0C 00 DEFB $00 6E0D 00 DEFB $00 6E0E 00 DEFB $00 6E0F 00 DEFB $00 ; ########## BIOS WRITE ########## 6E10 F6FF OR $FF ; A = $FF 6E12 1805 JR $6E19 ; ########## BIOS READ ########### 6E14 AF XOR A ; A = $00 6E15 32046E LD ($6E04),A ; ($6E04) = $00 6E18 4F LD C,A ; C = $00 6E19 21056E LD HL,$6E05 ; ---------- BIOS READ/WRITE ---------- 6E1C 71 LD (HL),C ; ($6E05) = $00 if READ, or parameter passed to BIOS WRITE in C 6E1D 23 INC HL ; HL = $6E06 6E1E 77 LD (HL),A ; ($6E06) = $00 if READ, $FF if WRITE 6E1F 215CF6 LD HL,$F65C ; crt. logical drv# address 6E22 7E LD A,(HL) ; A = crt. logical drv# 6E23 23 INC HL ; HL = $F65D 6E24 BE CP (HL) ; compare logical drv# with ($F65D) 6E25 77 LD (HL),A ; ($F65D) = logical drv# 6E26 2847 JR Z,$6E6F ; if same drive, skip forward ---> ---> ---> ---> ---> ---> ---> ---> ---> --->| 6E28 CDD370 CALL $70D3 ; A = $FF xor ($6E07), HL=$6E07 | 6E2B 215CF6 LD HL,$F65C ; crt. logical drv# address | 6E2E 4E LD C,(HL) ; C = crt. logical drv# | 6E2F CB51 BIT 2,C ; test if logical drv# > 3 | 6E31 3E00 LD A,$00 6E33 21086E LD HL,$6E08 6E36 2006 JR NZ,$6E3E ; if logical drv# > 3 ---> ---> ---> ---> ---> ---> --->| | 6E38 7E LD A,(HL) ; A = ($6E08) | | 6E39 B9 CP C ; compare ($6E08) to logical drv# | | 6E3A 2019 JR NZ,$6E55 ; if different ---> ---> ---> ---> ---> ---> ---> ---> ---> -->| | 6E3C EE04 XOR $04 ; | | | 6E3E 77 LD (HL),A ; ($5B08) = (0 if logdrv#>3) or (($5B08)xor$04 if not)<-/ | | 6E3F 3E41 LD A,$41 ; | | 6E41 81 ADD A,C ; A = $41 + logical drv# | | 6E42 329272 LD ($7292),A ; ($7F22) = $41 + logical drv# | | 6E45 218272 LD HL,$7282 ; | | 6E48 CD3B72 CALL $723B ; call MSG_PRINT | | 6E4B CD76F7 CALL $F776 ; call BIOS CONIN | | 6E4E CD7D6E CALL $6E7D ; | | 6E51 36FF LD (HL),$FF ; | | 6E53 181A JR $6E6F ; --> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> --->| 6E55 21F8FD LD HL,$FDF8 ; addr of first 8272 cmd arg (head+drive) <--- <--- <--- <--- <-| | 6E58 4E LD C,(HL) ; C = head+drive | 6E59 CB91 RES 2,C ; reset head bit (for head 0) | 6E5B 3A51F6 LD A,($F651) ; physical drv# | 6E5E 77 LD (HL),A ; store physical drv# side 0 at addr of first 8272 cmd arg | 6E5F 23 INC HL ; addr of next 8272 cmd arg - cylinder number | 6E60 46 LD B,(HL) ; B = cylinder number | 6E61 110CFC LD DE,$FC0C ; | 6E64 69 LD L,C ; L = physical drv# in 8272 cmd arg | 6E65 2600 LD H,$00 ; HL = physical drv# in 8272 cmd arg | 6E67 19 ADD HL,DE ; HL = $FC0C + physical drv# in 8272 cmd arg | 6E68 70 LD (HL),B ; ($FC0C + physical drv# in 8272 cmd arg) = cylinder number | 6E69 B3 OR E ; A = physical drv# + $0C | 6E6A 6F LD L,A ; HL = $FC0C + physical drv# | 6E6B 7E LD A,(HL) ; A = ($FC0C + physical drv#) | 6E6C 32F9FD LD ($FDF9),A ; ($FDF9) = 8272 cmd arg 2 = ($FC0C + physical drv#) | 6E6F CDAE6F CALL $6FAE ; send 8272 SIS <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <---| 6E72 FEC0 CP $C0 ; A = first 8272 result byte = ST0; check if abnormal termination | 6E74 381C JR C,$6E92 ; if OK, jump ----> ---> ---> ---> --->| | 6E76 CD806E CALL $6E80 ; HL=FC08+physical drv# | | 6E79 36FF LD (HL),$FF ; | | 6E7B 18F2 JR $6E6F ; > ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ----->| always jump ; ############# RETURNS A=$FF ############# 6E7D 3A51F6 LD A,($F651) ; A = physical drv# | ; ############# RETURNS A=$FF IF PHYSICAL DRV=0...3, $00 IF PHYSICAL DRV=4...7 ############# 6E80 E603 AND $03 ; keep last 2 bits (drives 0 1 2 3) | 6E82 2108FC LD HL,$FC08 ; | 6E85 B5 OR L ; A = physical drv# + 8 | 6E86 6F LD L,A ; HL = FC08 + physical drv# = ? | 6E87 7E LD A,(HL) ; A = (FC08 + physical drv#)=FF | 6E88 C9 RET ; | ; | 6E89 3D DEC A ; | 6E8A CD906F CALL $6F90 ; | 6E8D CD4E70 CALL $704E ; | 6E90 1821 JR $6EB3 ; ---> ---> ---> ---> ---> ---> ---> ---> ---> --->| 6E92 CDCB6F CALL $6FCB ; check if drive READY <-- <--- <--- <--| | 6E95 CD806E CALL $6E80 ; A = (FC08 + physical drv#) | 6E98 2156F6 LD HL,$F656 ; | 6E9B BE CP (HL) ; compare (FC08 + physical drv#) to ($DF56) | 6E9C 2820 JR Z,$6EBE ; jump if equal ---> ---> ---> ---> --->| | 6E9E 3C INC A ; | | 6E9F 20E8 JR NZ,$6E89 ; | | 6EA1 32036E LD ($6E03),A ; | | 6EA4 2151F6 LD HL,$F651 ; physical drv# address | | 6EA7 CB4E BIT 1,(HL) ; test if drive 2 or 3 | | 6EA9 2802 JR Z,$6EAD ; if drive 0 or 1 skip next line | | ================== NEEDS CHANGE FOR ALL DRIVES DD ================== 6EAB F640 OR $40 ; set bit 2 6EAD CD906F CALL $6F90 ; sends Specify cmd for 512 byte/sect, 9 sect/trk | 6EB0 CD3070 CALL $7030 ; | | 6EB3 B7 OR A ; <--- <--- <--- <--- <--- <--- <--- <--- <--- <---| 6EB4 C2D871 JP NZ,$71D8 ; | 6EB7 CD7D6E CALL $6E7D ; | 6EBA 3A56F6 LD A,($F656) ; | 6EBD 77 LD (HL),A ; | 6EBE 3A51F6 LD A,($F651) ; A = physical drv# <--- <--- <--- <----| 6EC1 CB4F BIT 1,A ; test if drv# 2 or 3 6EC3 200F JR NZ,$6ED4 ; jump if drv# 2 or 3 --> ---> ---> --->| ================== NEEDS CHANGE FOR ALL DRIVES DD ================== 6EC5 CDD370 CALL $70D3 ; A = $FF xor ($5B07) | 6EC8 CDE66F CALL $6FE6 6ECB AF XOR A ; A = $00 6ECC 3255F6 LD ($F655),A 6ECF 3A066E LD A,($6E06) 6ED2 1836 JR $6F0A 6ED4 AF XOR A ; A = $00 <--- <--- <--- <--- <--- <---| 6ED5 21066E LD HL,$6E06 6ED8 BE CP (HL) ; ($5B06) = $00 if READ, $FF if WRITE 6ED9 2B DEC HL 6EDA 2B DEC HL ; HL = $5B04 6EDB 2815 JR Z,$6EF2 ; if READ jump ----> ---> ---> ---> --->| 6EDD 23 INC HL ; HL = $5B05 | 6EDE 7E LD A,(HL) ; A = par passed to WRITE in C | 6EDF FE02 CP $02 ; test if = 2 | 6EE1 2B DEC HL ; HL = $5B04 | 6EE2 7E LD A,(HL) ; | 6EE3 2009 JR NZ,$6EEE ; | 6EE5 ED5B59F6 LD DE,($F659) ; DE = $DFCA = addr of DPB #2-#7 | 6EE9 13 INC DE ; | 6EEA 13 INC DE ; | 6EEB 13 INC DE ; DE = $DFCD = BLM for drv #2-#7 | 6EEC 1A LD A,(DE) ; A = BLM | 6EED 3C INC A ; | 6EEE B7 OR A ; | 6EEF 2801 JR Z,$6EF2 ; | 6EF1 35 DEC (HL) ; | 6EF2 1155F6 LD DE,$F655 ; logical sector# address <--- <--- <---| 6EF5 0604 LD B,$04 ; 4 loops next 6EF7 1B DEC DE ; DE = $DF54 <--- <--- <--- <--\ 6EF8 2B DEC HL ; HL = $5B03 | 6EF9 1A LD A,(DE) ; A=physical sector#+1 | 6EFA BE CP (HL) ; | 6EFB 2004 JR NZ,$6F01 ; -> ---> ---> ---> --->| | 6EFD 10F8 DJNZ $6EF7 ; ---> ---> ---> ---> ---> --->/ 6EFF 181B JR $6F1C ; ---> ---> ---> ---> ---> --->\ 6F01 CDD370 CALL $70D3 ; A=$FF xor ($5B07) <---| | 6F04 CDE66F CALL $6FE6 ; | 6F07 3A046E LD A,($6E04) ; | 6F0A B7 OR A ; | 6F0B CCEC70 CALL Z,$70EC ; | 6F0E 2AF8FD LD HL,($FDF8) ; | 6F11 CB95 RES 2,L ; | 6F13 22006E LD ($6E00),HL ; | 6F16 2AFAFD LD HL,($FDFA) ; | 6F19 22026E LD ($6E02),HL ; | 6F1C 2100FF LD HL,$FF00 ; <---- <--- <--- <--- <--- <--/ 6F1F 3A55F6 LD A,($F655) 6F22 1F RRA 6F23 CB1D RR L 6F25 1F RRA 6F26 CB14 RL H 6F28 ED5B57F6 LD DE,($F657) 6F2C 018000 LD BC,$0080 6F2F 3A066E LD A,($6E06) 6F32 B7 OR A 6F33 2804 JR Z,$6F39 6F35 EB EX DE,HL 6F36 32076E LD ($6E07),A 6F39 CD9AF9 CALL $F99A 6F3C 3A056E LD A,($6E05) 6F3F FE01 CP $01 6F41 78 LD A,B 6F42 C0 RET NZ 6F43 CDD370 CALL $70D3 ; A = $FF xor ($5B07) 6F46 C9 RET 6F47 DBF5 IN A,($F5) ; ######## 8272_POLL ######### 6F49 CB7F BIT 7,A ; test bit 7 (RQM) 6F4B 28FA JR Z,$6F47 ; if bit 7 = 0 read 8272 Status Register again 6F4D CB77 BIT 6,A ; test bit 6 (DIO, 0=receive/1=send) 6F4F C9 RET 6F50 21ADF9 LD HL,$F9AD ; addr of BIOS routine to detect end of exec phase 6F53 E5 PUSH HL ; saved on stack ; ######## 8272_WR ########### ; inputs: C = command opcode 6F54 320A6E LD ($6E0A),A 6F57 21F8FD LD HL,$FDF8 ; address of 8272 command args ; ######## 8272_WR_HL ######## ; inputs: HL = address of 8272 command args 6F5A DBF5 IN A,($F5) ; read 8272 Status Register <-----| 6F5C E610 AND $10 ; test bit 4 (FDC Busy) | 6F5E 2804 JR Z,$6F64 ; --->| if 8272 not busy | 6F60 18F8 JR $6F5A ; --------> if 8272 busy ---> --->| 6F62 4E LD C,(HL) ; <-------- <--- <--- <--- <--- <---| 6F63 23 INC HL ; inc.| 8272 arg pointer | 6F64 F3 DI ; <---| | 6F65 CD476F CALL $6F47 ; call 8272_POLL | 6F68 C2DD71 JP NZ,$71DD ; if 8272 not ready to receive | 6F6B 59 LD E,C ; C has 8272 opcode | 6F6C 0EFD LD C,$FD ; 8272 Data Register | 6F6E ED59 OUT (C),E ; send opcode to 8272 Data Register | 6F70 10F0 DJNZ $6F62 ; ---> ---> ---> ---> ---> ---> --->| 6F72 FB EI 6F73 C9 RET ; ######## 8272_RD ######## 6F74 21F0FD LD HL,$FDF0 ; 8272 cmd result storage address 6F77 0608 LD B,$08 ; max. 8 loops next (8272 commands have max 7 result bytes) 6F79 CD476F CALL $6F47 ; call 8272_POLL <--- <--- <--- <---| 6F7C 280D JR Z,$6F8B ; if 8272 done sending exit --->| | 6F7E 36FF LD (HL),$FF ; | | 6F80 36FF LD (HL),$FF ; | | 6F82 DBFD IN A,($FD) ; read 8272 Data Register | | 6F84 77 LD (HL),A ; store 8272 cmd result byte | | 6F85 23 INC HL ; inc. result storage addr | | 6F86 10F1 DJNZ $6F79 ; ---> ---> ---> ---> ---> ---> --->| 6F88 C3DD71 JP $71DD ; if 8272 still sending, error | 6F8B 21F0FD LD HL,$FDF0 ; <--- <--- <--- <--- <--- <----| 6F8E 7E LD A,(HL) ; A = first result byte 6F8F C9 RET ; ######## SEND SPECIFY COMMAND ######### ; uses params at DFC2-DFC5: N=2 (512 byte/sect) EOT=9 (9 sect/track) GPL=$20 DTL=$FF 6F90 3256F6 LD ($F656),A ; ($DF56) = param received in A 6F93 2A59F6 LD HL,($F659) ; HL = $DFCA = addr of DPB #2-#7 6F96 110800 LD DE,$0008 6F99 B7 OR A ; test A 6F9A ED52 SBC HL,DE ; HL = (addr of DPB #2-#7)-8 6F9C EB EX DE,HL ; HL = 8, DE = (addr of DPB #2-#7)-8 6F9D 21F8FD LD HL,$FDF8 ; HL = addr of 8272 command arg#1 (head+drive) 6FA0 CB96 RES 2,(HL) ; reset head bit (set head to 0) 6FA2 010400 LD BC,$0004 6FA5 09 ADD HL,BC ; HL = $FDFC = addr of 8272 command arg#5 (N, nr of bytes written to a sector) 6FA6 EB EX DE,HL ; DE = addr of 8272 command arg#5, HL = (addr of DPB #2-#7)-8 6FA7 EDB0 LDIR ; copy 4 bytes from (addr of DPB #2-#7)-8 to addr of 8272 command arg#5 6FA9 010303 LD BC,$0303 ; B=03 for 3 command bytes, C=03 opcode for Specify command 6FAC 18AC JR $6F5A ; 8272_WR_HL: Specify with HL = (addr of DPB #2-#7)-4 = $DFC6 (Step=15ms, HUT=240ms, HLT=64ms, Non-DMA) ; ######## SEND 8272 SIS COMMAND ######### 6FAE 010801 LD BC,$0108 ; B=01 for 1 command byte, C=08 opcode for Sense Int. Status 6FB1 CD5A6F CALL $6F5A ; 8272_WR_HL 6FB4 18BE JR $6F74 ; 8272_RD 6FB6 CDAE6F CALL $6FAE ; send 8272 SIS 6FB9 FE80 CP $80 6FBB C8 RET Z 6FBC 18F8 JR $6FB6 ; ######## DRIVE_READY ######## 6FBE 010402 LD BC,$0204 ; B=02 for 2 command bytes, C=04 opcode for Sense Drive Status 6FC1 AF XOR A 6FC2 CD546F CALL $6F54 ; call 8272_WR 6FC5 CD746F CALL $6F74 ; call 8272_RD 6FC8 CB6F BIT 5,A ; test bit 5 of Sense Drive Status first result byte (ST3) - Ready 6FCA C9 RET 6FCB CDBE6F CALL $6FBE ; call DRIVE_READY 6FCE C0 RET NZ ; return ?if Ready? 6FCF CDD371 CALL $71D3 6FD2 CDBE6F CALL $6FBE ; call DRIVE_READY <--- <--- <--- <--- <--- <-----| 6FD5 C0 RET NZ ; return ?if Ready? | ; | 6FD6 CD13F7 CALL $F713 ; BIOS CONST | 6FD9 B7 OR A ; console char ready to read (FF) or not (00) | 6FDA 28F6 JR Z,$6FD2 ; if char not ready ---> ---> ---> ---> ---> --->| 6FDC CD76F7 CALL $F776 ; BIOS CONIN 6FDF AF XOR A 6FE0 320400 LD ($0004),A ; set DSK Byte to 00 ================== NEEDS CHANGE FOR ROM PACKAGING ================== 6FE3 C303F6 JP $F603 ; BIOS WBOOT 6FE6 2A53F6 LD HL,($F653) ; L=head#, H=physical sector# 6FE9 22FAFD LD ($FDFA),HL ; ($FDFA)=head#, ($FDFB)=sector# 6FEC 7D LD A,L ; head# 6FED 2AF8FD LD HL,($FDF8) ; L=head#+drive#, H=cyl# 6FF0 CB95 RES 2,L ; L=head#0+drive# 6FF2 B7 OR A ; test if head#=0 6FF3 2802 JR Z,$6FF7 ; skip next line if so 6FF5 CBD5 SET 2,L ; L=head#1+drive# 6FF7 3A52F6 LD A,($F652) ; track# 6FFA BC CP H ; compare with cyl# in H (line 02ED) 6FFB 67 LD H,A ; H=track# 6FFC 22F8FD LD ($FDF8),HL ; save HL in 8272 command args #1 and #2 6FFF C8 RET Z 7000 B7 OR A ; check if track#=0 7001 282D JR Z,$7030 ; if so jump --> ---> ---> ---> ---> ---> ---> ---> --->| 7003 3A5CF6 LD A,($F65C) ; logical drive# | 7006 FE06 CP $06 ; check if smaller than 6 | 7008 3805 JR C,$700F ; if so jump ---> ---> ---> ---> ---> ---> ---> --->| | 700A 21F9FD LD HL,$FDF9 ; ($FDF9)=cyl# in 8272 args | | 700D CB26 SLA (HL) ; multiply by 2 with CY | | 700F 010F03 LD BC,$030F ; B=03 for 3 command bytes, C=0F opcode for Seek <--| | 7012 3E01 LD A,$01 ; | 7014 CD546F CALL $6F54 ; 8272_WR (Send 8272 Seek command) | 7017 3A52F6 LD A,($F652) ; track# | 701A 32F9FD LD ($FDF9),A ; put in 8272 arg #2 | 701D CDAE6F CALL $6FAE ; send 8272 SIS <--- <--- <--- <---| | 7020 CB6F BIT 5,A ; test if Seek ended (bit5=1) | | 7022 28F9 JR Z,$701D ; if not, repeat 8272 SIS ---> --->| | 7024 E650 AND $50 ; test bits 6 and 4 (=1 if other errors) | 7026 C2E271 JP NZ,$71E2 ; if any other error, jump | 7029 DBF5 IN A,($F5) ; read 8272 Status Register <--- <--- <------| | 702B E60F AND $0F ; test bits 0-3 (FDD0-3 in Seek Mode) | | 702D C8 RET Z ; if no FDD in Seek Mode, return | | 702E 18F9 JR $7029 ; if any FDD in Seek Mode ---> ---> ---> --->| | ; | 7030 3A51F6 LD A,($F651) ; physical drv# <--- <--- <--- <--- <--- <--- <--- <----| 7033 CB4F BIT 1,A ; test if drive 2 or 3 7035 2808 JR Z,$703F ; if not ---> --->| ================== NEEDS CHANGE FOR ALL DRIVES DD ================== 7037 3E02 LD A,$02 ; | 7039 32F9FD LD ($FDF9),A ; set track to 02 | ($FDF9)=8272 cmd arg#2 703C CD0F70 CALL $700F ; Seek + SIS | 703F AF XOR A ; <--- <--- <--- <-| 7040 32F9FD LD ($FDF9),A ; set track to 00 **** arg#2 is not used by Recalibrate anyway ! 7043 010702 LD BC,$0207 ; B=02 for 2 command bytes, C=07 opcode for Recalibrate 7046 F602 OR $02 ; A = $02 7048 CD546F CALL $6F54 ; 8272_WR (Send 8272 Recalibrate command) 704B CD1D70 CALL $701D ; send 8272 SIS 704E 0603 LD B,$03 ; 3 loops next 7050 C5 PUSH BC ; <--- <--- <--- <--- <--- <--- 7051 3A56F6 LD A,($F656) ; A=$60 (?) 7054 F60A OR $0A ; A=$6A (?) 7056 4F LD C,A ; C=$6A opcode for Read ID (?) 7057 0602 LD B,$02 ; B=02 for 2 command bytes 7059 3E03 LD A,$03 705B CD546F CALL $6F54 ; 8272_WR (Send 8272 Read ID (?) 705E CD746F CALL $6F74 ; call 8272_RD 7061 E6C0 AND $C0 7063 C1 POP BC 7064 2802 JR Z,$7068 7066 10E8 DJNZ $7050 7068 CBD5 SET 2,L 706A 23 INC HL 706B 46 LD B,(HL) 706C 23 INC HL 706D 4E LD C,(HL) 706E 23 INC HL 706F 70 LD (HL),B 7070 C9 RET ; ########### CONTINUED FROM BIOS BOOT ############ ; FC00 to FC03 represent logical drives A: to D:. ; They initially contain values 0 ... 3 representing corresponding physical drv numbers. ; That means initially drive 0 is drive A, drive 1 is drive B etc. 7071 2100FC LD HL,$FC00 ; <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <--- <-| 7074 54 LD D,H ; | 7075 5D LD E,L ; DE = $FC00 | 7076 0604 LD B,$04 ; 4 loops next, for 4 drive numbers stored at $FC00-$FC03 (0, 1, 2, 3) | 7078 7E LD A,(HL) ; A = ($FC00) = physical number for drive A: <--- <--- <--- <---| | 7079 32F8FD LD ($FDF8),A ; ($FDF8) = physical number of drive found READY | | 707C D9 EXX ; | | 707D CDBE6F CALL $6FBE ; send a Sense Drive Status command to drive number at $FDF8 and test if READY | 7080 D9 EXX ; | | 7081 2005 JR NZ,$7088 ; If drive READY jump -> ---> ---> --->| | | 7083 23 INC HL ; if not, increment drv# pointer | | | 7084 10F2 DJNZ $7078 ; and repeat loop -----> ---> ---> ---> ---> ---> ---> ---> --->| | 7086 18E9 JR $7071 ; --> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> ---> --->| 7088 7E LD A,(HL) ; <--- <--- <--- <--- <--- <--- <--- <--| A = physical drv# found ready 7089 3600 LD (HL),$00 ; change physical drv# for logical drv found ready to 0 708B 12 LD (DE),A ; change physical drv# for logical drv 0 (drive A: at $FC00) from 0 to drv# found ready 708C 210400 LD HL,$0004 708F 19 ADD HL,DE ; HL = $FC04 = address of logical drive E: 7090 77 LD (HL),A ; set physical number for logical drive E: to physical drv# found ready 7091 23 INC HL ; HL = $FC05 = address of logical drive F: 7092 77 LD (HL),A ; set physical number for logical drive F: to physical drv# found ready 7093 5D LD E,L ; DE = $FC05 = address of logical drive F: 7094 23 INC HL ; HL = $FC06 = address of logical drive G: 7095 77 LD (HL),A ; set physical number for logical drive G: to physical drv# found ready 7096 23 INC HL ; HL = $FC07 = address of logical drive H: 7097 56 LD D,(HL) ; D = physical drv# of logical drive H:, E = $05 7098 77 LD (HL),A ; set physical number for logical drive H: to physical drv# found ready 7099 C9 RET ; this will make a jump to $7230 (see line FE55 in BIOS BOOT where we came from) ; where the CP/M startup message will be printed ; ############# EXECUTED AFTER PRINTING STARTUP MESSAGE ############## 709A FB EI 709B 3AF8FD LD A,($FDF8) ; 8272 cmd arg#1: head+drive 709E E603 AND $03 ; keep only the drive bits 70A0 F630 OR $30 ; add to '0' char code 70A2 329D72 LD ($729D),A ; save instead of '0' in "Insert disk E in drive 0" 70A5 CB4F BIT 1,A ; test if drv# = 2 or 3 70A7 3E00 LD A,$00 70A9 21EAF6 LD HL,$F6EA ; $F6EA = DPB address for drv# 0 and 1 70AC 2805 JR Z,$70B3 ; if drv# = 0 or 1 jump ----> ---> --->| ================== NEEDS CHANGE FOR ALL DRIVES DD ================== 70AE F640 OR $40 ; A = $40 | 70B0 21CAF6 LD HL,$F6CA ; $F6CA = DPB address for drv# 2 and 3 | 70B3 2259F6 LD ($F659),HL ; <--- <--- <--- <--- <--- <--- <----| ; ($F659_$F65A) = $F6EA (if drv# = 0 or 1), ($F659_$F65A) = $F6CA (if drv# = 2 or 3) ; MEANING: store address of DPB (in use for drv# stored at ($FDF8)) at ($F659_$F65A) 70B6 224AFB LD ($FB4A),HL ; ($FB4A_$FB4B) = $F6EA (if drv# = 0 or 1), ($FB4A_$FB4B) = $F6CA (if drv# = 2 or 3) ; ($FB4A_$FB4B) = storage location of DPB in DPH#4 ; MEANING: assign DPB of proper density to DPH of logical drive E: store address of DPB DD (in use for drv# stored at ($FDF8)) in DPH#4 70B9 2B DEC HL 70BA 56 LD D,(HL) 70BB 2B DEC HL 70BC 5E LD E,(HL) ; DE = ($F6E8_$F6E9) if drv# = 0 or 1, DE = ($F6C8_$F6C9) if drv# = 2 or 3 70BD ED5340FB LD ($FB40),DE ; ($FB40_$FB41) = ($F6E8_$F6E9) if drv# = 0 or 1, or ($F6C8_$F6C9) if drv# = 2 or 3 70C1 CD906F CALL $6F90 ; send Specify command to 8272 with args at $F6E6/$F6C6 70C4 CD3F70 CALL $703F ; Send Read ID on track 0 and get results at $FDF0-$FDF6 70C7 C5 PUSH BC ; BC = RN at Read ID @@@@@@@@@@@@@ CP/M PROTECTION CODE @@@@@@@@@@@@@ 70C8 F3 DI 70C9 D9 EXX ; ### this pairs up with EXX at $7230 previously executed ### 70CA E1 POP HL ; HL = RN at Read ID @@@@@@@@@@@@@ CP/M PROTECTION CODE @@@@@@@@@@@@@ 70CB B7 OR A ; A = $00 if no errors from Read ID 70CC ED52 SBC HL,DE ; compare CP/M PROTECTION CODE with DE 70CE C9 RET ; RET whether identical or not, to $F603 (pushed on stack at $FE53 in BIOS BOOT) @@@@@@@@@@@@@ this opcode already changed from ($C8) to $C9 to remove protection 70CF E1 POP HL ; HL = $F603 (pushed on stack at $FE53 in BIOS BOOT) 70D0 2E00 LD L,$00 ; HL = $F600 (address of BIOS BOOT in BIOS function jump table, but that JP instruction was changed to JP CPM_TO_COBRA) 70D2 E9 JP (HL) ; jump to CPM_TO_COBRA, back to BOOT ROM 70D3 21076E LD HL,$6E07 70D6 F6FF OR $FF 70D8 AE XOR (HL) 70D9 C0 RET NZ 70DA 77 LD (HL),A 70DB F6FF OR $FF 70DD 32096E LD ($6E09),A 70E0 3A56F6 LD A,($F656) 70E3 F605 OR $05 70E5 2186F9 LD HL,$F986 70E8 CBC6 SET 0,(HL) 70EA 1811 JR $70FD 70EC AF XOR A 70ED 32036E LD ($6E03),A 70F0 32096E LD ($6E09),A 70F3 3A56F6 LD A,($F656) 70F6 F606 OR $06 70F8 2186F9 LD HL,$F986 70FB CB86 RES 0,(HL) 70FD 4F LD C,A 70FE E607 AND $07 7100 320A6E LD ($6E0A),A 7103 060A LD B,$0A 7105 C5 PUSH BC 7106 CD5871 CALL $7158 7109 AF XOR A 710A 325BF6 LD ($F65B),A 710D CD39F6 CALL $F639 7110 2185F9 LD HL,$F985 7113 2298FD LD ($FD98),HL 7116 218AF9 LD HL,$F98A 7119 229CFD LD ($FD9C),HL 711C 0609 LD B,$09 711E 3A0A6E LD A,($6E0A) 7121 CD506F CALL $6F50 7124 2187F9 LD HL,$F987 7127 2298FD LD ($FD98),HL 712A 229CFD LD ($FD9C),HL 712D CD5871 CALL $7158 7130 F6FF OR $FF 7132 CD39F6 CALL $F639 7135 CD746F CALL $6F74 7138 C1 POP BC 7139 3A5BF6 LD A,($F65B) 713C B7 OR A 713D 283D JR Z,$717C 713F 7E LD A,(HL) 7140 23 INC HL 7141 E6D8 AND $D8 7143 2037 JR NZ,$717C 7145 23 INC HL 7146 7E LD A,(HL) 7147 CBB7 RES 6,A 7149 2B DEC HL 714A B6 OR (HL) 714B 202F JR NZ,$717C 714D 3A096E LD A,($6E09) 7150 B7 OR A 7151 C8 RET Z 7152 0600 LD B,$00 7154 10FE DJNZ $7154 7156 78 LD A,B 7157 C9 RET 7158 F3 DI 7159 3EFF LD A,$FF 715B D3E3 OUT ($E3),A 715D 3E01 LD A,$01 715F D3E3 OUT ($E3),A 7161 3E7F LD A,$7F 7163 D3EB OUT ($EB),A 7165 3A56F6 LD A,($F656) 7168 EE40 XOR $40 716A D3EB OUT ($EB),A 716C 3EFF LD A,$FF 716E D3F3 OUT ($F3),A 7170 3E02 LD A,$02 7172 D3F3 OUT ($F3),A 7174 C9 RET 7175 C5 PUSH BC 7176 CDB468 CALL $68B4 7179 C1 POP BC 717A 1889 JR $7105 717C 10F7 DJNZ $7175 717E D1 POP DE 717F CB66 BIT 4,(HL) 7181 11FE72 LD DE,$72FE 7184 2063 JR NZ,$71E9 7186 CB7E BIT 7,(HL) 7188 110E73 LD DE,$730E 718B 205C JR NZ,$71E9 718D CB4E BIT 1,(HL) 718F 110673 LD DE,$7306 7192 2055 JR NZ,$71E9 7194 CB46 BIT 0,(HL) 7196 111B73 LD DE,$731B 7199 013673 LD BC,$7336 719C 2013 JR NZ,$71B1 719E CB6E BIT 5,(HL) 71A0 112873 LD DE,$7328 71A3 2016 JR NZ,$71BB 71A5 CB56 BIT 2,(HL) 71A7 112C73 LD DE,$732C 71AA 2016 JR NZ,$71C2 71AC 11F572 LD DE,$72F5 71AF 1838 JR $71E9 71B1 23 INC HL 71B2 CB46 BIT 0,(HL) 71B4 2836 JR Z,$71EC 71B6 014373 LD BC,$7343 71B9 1831 JR $71EC 71BB 23 INC HL 71BC CB6E BIT 5,(HL) 71BE 282C JR Z,$71EC 71C0 18F4 JR $71B6 71C2 23 INC HL 71C3 CB6E BIT 5,(HL) 71C5 015273 LD BC,$7352 71C8 2022 JR NZ,$71EC 71CA CB4E BIT 1,(HL) 71CC 015F73 LD BC,$735F 71CF 201B JR NZ,$71EC 71D1 1816 JR $71E9 71D3 11DD72 LD DE,$72DD 71D6 1811 JR $71E9 71D8 11ED72 LD DE,$72ED 71DB 180C JR $71E9 71DD 11D572 LD DE,$72D5 71E0 1803 JR $71E5 71E2 11D972 LD DE,$72D9 71E5 0103F6 LD BC,$F603 71E8 C5 PUSH BC 71E9 010000 LD BC,$0000 71EC C5 PUSH BC 71ED D5 PUSH DE 71EE 3E30 LD A,$30 71F0 21F8FD LD HL,$FDF8 71F3 B6 OR (HL) 71F4 CB97 RES 2,A 71F6 117472 LD DE,$7274 71F9 12 LD (DE),A 71FA 13 INC DE 71FB CD4772 CALL $7247 71FE 13 INC DE 71FF 13 INC DE 7200 23 INC HL 7201 3E30 LD A,$30 7203 B6 OR (HL) 7204 12 LD (DE),A 7205 CD4772 CALL $7247 7208 216672 LD HL,$7266 720B CD3B72 CALL $723B 720E 57 LD D,A 720F 3A0A6E LD A,($6E0A) 7212 87 ADD A,A 7213 5F LD E,A 7214 21A372 LD HL,$72A3 7217 19 ADD HL,DE 7218 5E LD E,(HL) 7219 23 INC HL 721A 56 LD D,(HL) 721B EB EX DE,HL 721C CD3B72 CALL $723B 721F CD3872 CALL $7238 7222 E1 POP HL 7223 CD3B72 CALL $723B 7226 E1 POP HL 7227 B4 OR H 7228 C43B72 CALL NZ,$723B 722B CD3872 CALL $7238 722E 3C INC A 722F C9 RET 7230 D9 EXX 7231 2100FE LD HL,$FE00 7234 CD3B72 CALL $723B 7237 E9 JP (HL) 7238 21A072 LD HL,$72A0 723B 7E LD A,(HL) 723C B7 OR A 723D C8 RET Z 723E 4F LD C,A 723F E5 PUSH HL 7240 CD85F7 CALL $F785 7243 E1 POP HL 7244 23 INC HL 7245 18F4 JR $723B 7247 3E30 LD A,$30 7249 4F LD C,A 724A 13 INC DE 724B 13 INC DE 724C 23 INC HL 724D 46 LD B,(HL) 724E 04 INC B 724F 3D DEC A 7250 3C INC A 7251 FE3A CP $3A 7253 3803 JR C,$7258 7255 E630 AND $30 7257 0C INC C 7258 10F6 DJNZ $7250 725A EB EX DE,HL 725B 71 LD (HL),C 725C 23 INC HL 725D 77 LD (HL),A 725E EB EX DE,HL 725F C9 RET 7260 F9 DEFB $F9 7261 16 DEFB $16 7262 00 DEFB $00 7263 00 DEFB $00 7264 00 DEFB $00 7265 1A DEFB $1A 7266 07 DEFB $07 7267 0D DEFB $0D 7268 0A DEFB $0A 7269 0E DEFB $0E 726A 20 DEFB $20 726B 45 DEFB $45 726C 72 DEFB $72 726D 72 DEFB $72 726E 6F DEFB $6F 726F 72 DEFB $72 7270 20 DEFB $20 7271 6F DEFB $6F 7272 6E DEFB $6E 7273 20 DEFB $20 7274 30 DEFB $30 7275 3A DEFB $3A 7276 7C DEFB $7C 7277 30 DEFB $30 7278 30 DEFB $30 7279 7C DEFB $7C 727A 30 DEFB $30 727B 7C DEFB $7C 727C 30 DEFB $30 727D 30 DEFB $30 727E 7C DEFB $7C 727F 0F DEFB $0F 7280 20 DEFB $20 7281 00 DEFB $00 7282 0D DEFB $0D 7283 0A DEFB $0A 7284 0E DEFB $0E 7285 20 DEFB $20 7286 49 DEFB $49 7287 6E DEFB $6E 7288 73 DEFB $73 7289 65 DEFB $65 728A 72 DEFB $72 728B 74 DEFB $74 728C 20 DEFB $20 728D 64 DEFB $64 728E 69 DEFB $69 728F 73 DEFB $73 7290 6B DEFB $6B 7291 20 DEFB $20 7292 45 DEFB $45 7293 20 DEFB $20 7294 69 DEFB $69 7295 6E DEFB $6E 7296 20 DEFB $20 7297 64 DEFB $64 7298 72 DEFB $72 7299 69 DEFB $69 729A 76 DEFB $76 729B 65 DEFB $65 729C 20 DEFB $20 729D 30 DEFB $30 729E 3A DEFB $3A 729F 0F DEFB $0F 72A0 0D DEFB $0D 72A1 0A DEFB $0A 72A2 00 DEFB $00 72A3 A2 DEFB $A2 72A4 72 DEFB $72 72A5 B1 DEFB $B1 72A6 72 DEFB $72 72A7 B6 DEFB $B6 72A8 72 DEFB $72 72A9 C2 DEFB $C2 72AA 72 DEFB $72 72AB A2 DEFB $A2 72AC 72 DEFB $72 72AD CA DEFB $CA 72AE 72 DEFB $72 72AF D0 DEFB $D0 72B0 72 DEFB $72 72B1 73 DEFB $73 72B2 65 DEFB $65 72B3 65 DEFB $65 72B4 6B DEFB $6B 72B5 00 DEFB $00 72B6 72 DEFB $72 72B7 65 DEFB $65 72B8 63 DEFB $63 72B9 61 DEFB $61 72BA 6C DEFB $6C 72BB 69 DEFB $69 72BC 62 DEFB $62 72BD 72 DEFB $72 72BE 61 DEFB $61 72BF 74 DEFB $74 72C0 65 DEFB $65 72C1 00 DEFB $00 72C2 72 DEFB $72 72C3 65 DEFB $65 72C4 61 DEFB $61 72C5 64 DEFB $64 72C6 20 DEFB $20 72C7 69 DEFB $69 72C8 64 DEFB $64 72C9 00 DEFB $00 72CA 77 DEFB $77 72CB 72 DEFB $72 72CC 69 DEFB $69 72CD 74 DEFB $74 72CE 65 DEFB $65 72CF 00 DEFB $00 72D0 72 DEFB $72 72D1 65 DEFB $65 72D2 61 DEFB $61 72D3 64 DEFB $64 72D4 00 DEFB $00 72D5 66 DEFB $66 72D6 64 DEFB $64 72D7 63 DEFB $63 72D8 00 DEFB $00 72D9 66 DEFB $66 72DA 64 DEFB $64 72DB 64 DEFB $64 72DC 00 DEFB $00 72DD 64 DEFB $64 72DE 72 DEFB $72 72DF 69 DEFB $69 72E0 76 DEFB $76 72E1 65 DEFB $65 72E2 20 DEFB $20 72E3 6E DEFB $6E 72E4 6F DEFB $6F 72E5 74 DEFB $74 72E6 20 DEFB $20 72E7 72 DEFB $72 72E8 65 DEFB $65 72E9 61 DEFB $61 72EA 64 DEFB $64 72EB 79 DEFB $79 72EC 00 DEFB $00 72ED 64 DEFB $64 72EE 65 DEFB $65 72EF 6E DEFB $6E 72F0 73 DEFB $73 72F1 69 DEFB $69 72F2 74 DEFB $74 72F3 79 DEFB $79 72F4 00 DEFB $00 72F5 61 DEFB $61 72F6 62 DEFB $62 72F7 6E DEFB $6E 72F8 6F DEFB $6F 72F9 72 DEFB $72 72FA 6D DEFB $6D 72FB 61 DEFB $61 72FC 6C DEFB $6C 72FD 00 DEFB $00 72FE 6F DEFB $6F 72FF 76 DEFB $76 7300 65 DEFB $65 7301 72 DEFB $72 7302 72 DEFB $72 7303 75 DEFB $75 7304 6E DEFB $6E 7305 00 DEFB $00 7306 70 DEFB $70 7307 72 DEFB $72 7308 6F DEFB $6F 7309 74 DEFB $74 730A 65 DEFB $65 730B 63 DEFB $63 730C 74 DEFB $74 730D 00 DEFB $00 730E 65 DEFB $65 730F 6E DEFB $6E 7310 64 DEFB $64 7311 20 DEFB $20 7312 6F DEFB $6F 7313 66 DEFB $66 7314 20 DEFB $20 7315 74 DEFB $74 7316 72 DEFB $72 7317 61 DEFB $61 7318 63 DEFB $63 7319 6B DEFB $6B 731A 00 DEFB $00 731B 61 DEFB $61 731C 64 DEFB $64 731D 64 DEFB $64 731E 72 DEFB $72 731F 65 DEFB $65 7320 73 DEFB $73 7321 73 DEFB $73 7322 20 DEFB $20 7323 6D DEFB $6D 7324 61 DEFB $61 7325 72 DEFB $72 7326 6B DEFB $6B 7327 00 DEFB $00 7328 63 DEFB $63 7329 72 DEFB $72 732A 63 DEFB $63 732B 00 DEFB $00 732C 6E DEFB $6E 732D 6F DEFB $6F 732E 74 DEFB $74 732F 20 DEFB $20 7330 66 DEFB $66 7331 6F DEFB $6F 7332 75 DEFB $75 7333 6E DEFB $6E 7334 64 DEFB $64 7335 00 DEFB $00 7336 20 DEFB $20 7337 69 DEFB $69 7338 6E DEFB $6E 7339 20 DEFB $20 733A 69 DEFB $69 733B 64 DEFB $64 733C 20 DEFB $20 733D 66 DEFB $66 733E 69 DEFB $69 733F 65 DEFB $65 7340 6C DEFB $6C 7341 64 DEFB $64 7342 00 DEFB $00 7343 20 DEFB $20 7344 69 DEFB $69 7345 6E DEFB $6E 7346 20 DEFB $20 7347 64 DEFB $64 7348 61 DEFB $61 7349 74 DEFB $74 734A 61 DEFB $61 734B 20 DEFB $20 734C 66 DEFB $66 734D 69 DEFB $69 734E 65 DEFB $65 734F 6C DEFB $6C 7350 64 DEFB $64 7351 00 DEFB $00 7352 20 DEFB $20 7353 77 DEFB $77 7354 72 DEFB $72 7355 6F DEFB $6F 7356 6E DEFB $6E 7357 67 DEFB $67 7358 20 DEFB $20 7359 74 DEFB $74 735A 72 DEFB $72 735B 61 DEFB $61 735C 63 DEFB $63 735D 6B DEFB $6B 735E 00 DEFB $00 735F 20 DEFB $20 7360 62 DEFB $62 7361 61 DEFB $61 7362 64 DEFB $64 7363 20 DEFB $20 7364 74 DEFB $74 7365 72 DEFB $72 7366 61 DEFB $61 7367 63 DEFB $63 7368 6B DEFB $6B 7369 00 DEFB $00 736A 00 DEFB $00 736B 00 DEFB $00 736C 00 DEFB $00 736D 00 DEFB $00 736E 00 DEFB $00 736F 00 DEFB $00 7370 CB4E BIT 1,(HL) 7372 C0 RET NZ 7373 3A0C66 LD A,($660C) 7376 CB56 BIT 2,(HL) 7378 2815 JR Z,$738F 737A CB5E BIT 3,(HL) 737C 2825 JR Z,$73A3 737E FE14 CP $14 7380 3803 JR C,$7385 7382 FE3C CP $3C 7384 D8 RET C 7385 CB9E RES 3,(HL) 7387 FE28 CP $28 7389 3014 JR NC,$739F 738B CBA6 RES 4,(HL) 738D 182A JR $73B9 738F CB5E BIT 3,(HL) 7391 20F2 JR NZ,$7385 7393 CB66 BIT 4,(HL) 7395 2805 JR Z,$739C 7397 FE28 CP $28 7399 D0 RET NC 739A 18EF JR $738B 739C FE28 CP $28 739E D8 RET C 739F CBE6 SET 4,(HL) 73A1 1816 JR $73B9 73A3 CB66 BIT 4,(HL) 73A5 2005 JR NZ,$73AC 73A7 FE28 CP $28 73A9 D8 RET C 73AA 1803 JR $73AF 73AC FE28 CP $28 73AE D0 RET NC 73AF FE14 CP $14 73B1 38D2 JR C,$7385 73B3 FE3C CP $3C 73B5 30CE JR NC,$7385 73B7 CBDE SET 3,(HL) 73B9 C35866 JP $6658 73BC 78 LD A,B 73BD E601 AND $01 73BF EE00 XOR $00 73C1 C8 RET Z 73C2 C31176 JP $7611 73C5 00 NOP 73C6 00 NOP 73C7 00 NOP 73C8 00 NOP 73C9 0E14 LD C,$14 73CB E608 AND $08 73CD C0 RET NZ 73CE 0E28 LD C,$28 73D0 C9 RET 73D1 2143F6 LD HL,$F643 73D4 79 LD A,C 73D5 E607 AND $07 73D7 4F LD C,A 73D8 78 LD A,B 73D9 FE01 CP $01 73DB 3817 JR C,$73F4 73DD 281B JR Z,$73FA 73DF CB91 RES 2,C 73E1 CB89 RES 1,C 73E3 FE03 CP $03 73E5 381D JR C,$7404 73E7 2823 JR Z,$740C 73E9 215E78 LD HL,$785E 73EC FE05 CP $05 73EE 3022 JR NC,$7412 73F0 3EFE LD A,$FE 73F2 1802 JR $73F6 73F4 3EF8 LD A,$F8 73F6 A6 AND (HL) 73F7 B1 OR C 73F8 77 LD (HL),A 73F9 C9 RET 73FA 3EC7 LD A,$C7 73FC CB01 RLC C 73FE CB01 RLC C 7400 CB01 RLC C 7402 18F2 JR $73F6 7404 3EBF LD A,$BF 7406 CB09 RRC C 7408 CB09 RRC C 740A 18EA JR $73F6 740C 3E7F LD A,$7F 740E CB09 RRC C 7410 18E4 JR $73F6 7412 C0 RET NZ 7413 3EFB LD A,$FB 7415 18E7 JR $73FE 7417 215E78 LD HL,$785E 741A 3A1066 LD A,($6610) 741D CB7F BIT 7,A 741F CB8E RES 1,(HL) 7421 C8 RET Z 7422 CBCE SET 1,(HL) 7424 C9 RET 7425 3EBF LD A,$BF 7427 90 SUB B 7428 DAF074 JP C,$74F0 742B 47 LD B,A 742C A7 AND A 742D 1F RRA 742E 37 SCF 742F 1F RRA 7430 A7 AND A 7431 1F RRA 7432 A8 XOR B 7433 E6F8 AND $F8 7435 A8 XOR B 7436 67 LD H,A 7437 79 LD A,C 7438 07 RLCA 7439 07 RLCA 743A 07 RLCA 743B A8 XOR B 743C E6C7 AND $C7 743E A8 XOR B 743F 07 RLCA 7440 07 RLCA 7441 6F LD L,A 7442 79 LD A,C 7443 E607 AND $07 7445 C9 RET 7446 CD2574 CALL $7425 7449 5F LD E,A 744A 1600 LD D,$00 744C 44 LD B,H 744D 4D LD C,L 744E C9 RET 744F CD2574 CALL $7425 7452 47 LD B,A 7453 04 INC B 7454 7E LD A,(HL) 7455 07 RLCA 7456 10FD DJNZ $7455 7458 E601 AND $01 745A 4F LD C,A 745B C9 RET 745C CD1774 CALL $7417 745F ED435C78 LD ($785C),BC 7463 CD2574 CALL $7425 7466 47 LD B,A 7467 04 INC B 7468 3EFE LD A,$FE 746A 0F RRCA 746B 10FD DJNZ $746A 746D 47 LD B,A 746E 3A5E78 LD A,($785E) 7471 4F LD C,A 7472 7E LD A,(HL) 7473 CB41 BIT 0,C 7475 2001 JR NZ,$7478 7477 A0 AND B 7478 CB49 BIT 1,C 747A 2002 JR NZ,$747E 747C A8 XOR B 747D 2F CPL 747E 77 LD (HL),A 747F 7C LD A,H 7480 0F RRCA 7481 0F RRCA 7482 0F RRCA 7483 E603 AND $03 7485 F658 OR $58 7487 67 LD H,A 7488 3A5E78 LD A,($785E) 748B CB57 BIT 2,A 748D C8 RET Z 748E 3A43F6 LD A,($F643) 7491 77 LD (HL),A 7492 C9 RET 7493 C5 PUSH BC 7494 D5 PUSH DE 7495 CD5C74 CALL $745C 7498 D1 POP DE 7499 C1 POP BC 749A 7A LD A,D 749B 90 SUB B 749C 1601 LD D,$01 749E 3004 JR NC,$74A4 74A0 16FF LD D,$FF 74A2 2F CPL 74A3 3C INC A 74A4 47 LD B,A 74A5 7B LD A,E 74A6 91 SUB C 74A7 1E01 LD E,$01 74A9 3004 JR NC,$74AF 74AB 1EFF LD E,$FF 74AD 2F CPL 74AE 3C INC A 74AF 4F LD C,A 74B0 79 LD A,C 74B1 B8 CP B 74B2 3006 JR NC,$74BA 74B4 69 LD L,C 74B5 D5 PUSH DE 74B6 AF XOR A 74B7 5F LD E,A 74B8 1808 JR $74C2 74BA B1 OR C 74BB C8 RET Z 74BC 00 NOP 74BD 68 LD L,B 74BE 41 LD B,C 74BF D5 PUSH DE 74C0 1600 LD D,$00 74C2 60 LD H,B 74C3 78 LD A,B 74C4 1F RRA 74C5 85 ADD A,L 74C6 3803 JR C,$74CB 74C8 BC CP H 74C9 3807 JR C,$74D2 74CB 94 SUB H 74CC 4F LD C,A 74CD D9 EXX 74CE C1 POP BC 74CF C5 PUSH BC 74D0 1804 JR $74D6 74D2 4F LD C,A 74D3 D5 PUSH DE 74D4 D9 EXX 74D5 C1 POP BC 74D6 2A5C78 LD HL,($785C) 74D9 78 LD A,B 74DA 84 ADD A,H 74DB 47 LD B,A 74DC 79 LD A,C 74DD 3C INC A 74DE 85 ADD A,L 74DF 380D JR C,$74EE 74E1 280D JR Z,$74F0 74E3 3D DEC A 74E4 4F LD C,A 74E5 CD5F74 CALL $745F 74E8 D9 EXX 74E9 79 LD A,C 74EA 10D9 DJNZ $74C5 74EC D1 POP DE 74ED C9 RET 74EE 28F3 JR Z,$74E3 74F0 AF XOR A 74F1 325C78 LD ($785C),A 74F4 325D78 LD ($785D),A 74F7 C3EF62 JP $62EF 74FA 3A43F6 LD A,($F643) 74FD 21FF5A LD HL,$5AFF 7500 11FE5A LD DE,$5AFE 7503 010003 LD BC,$0300 7506 77 LD (HL),A 7507 EDB8 LDDR 7509 3A1066 LD A,($6610) 750C E680 AND $80 750E 2802 JR Z,$7512 7510 3EFF LD A,$FF 7512 01FF17 LD BC,$17FF 7515 77 LD (HL),A 7516 EDB8 LDDR 7518 C9 RET 7519 C9 RET 751A CD1774 CALL $7417 751D C3B074 JP $74B0 7520 D5 PUSH DE 7521 3EBF LD A,$BF 7523 90 SUB B 7524 3806 JR C,$752C 7526 CD2B74 CALL $742B 7529 CD6674 CALL $7466 752C D1 POP DE 752D C9 RET 752E CD1774 CALL $7417 7531 AF XOR A 7532 57 LD D,A 7533 B3 OR E 7534 CA5C74 JP Z,$745C 7537 C5 PUSH BC 7538 D5 PUSH DE 7539 D9 EXX 753A C1 POP BC 753B 110000 LD DE,$0000 753E D9 EXX 753F 79 LD A,C 7540 83 ADD A,E 7541 3806 JR C,$7549 7543 4F LD C,A 7544 CD2075 CALL $7520 7547 C1 POP BC 7548 C5 PUSH BC 7549 79 LD A,C 754A 93 SUB E 754B 3806 JR C,$7553 754D 4F LD C,A 754E CD2075 CALL $7520 7551 C1 POP BC 7552 C5 PUSH BC 7553 78 LD A,B 7554 83 ADD A,E 7555 3806 JR C,$755D 7557 47 LD B,A 7558 CD2075 CALL $7520 755B C1 POP BC 755C C5 PUSH BC 755D 78 LD A,B 755E 93 SUB E 755F 3806 JR C,$7567 7561 47 LD B,A 7562 CD2075 CALL $7520 7565 C1 POP BC 7566 C5 PUSH BC 7567 D9 EXX 7568 04 INC B 7569 68 LD L,B 756A 2600 LD H,$00 756C 29 ADD HL,HL 756D 23 INC HL 756E 19 ADD HL,DE 756F EB EX DE,HL 7570 CB7A BIT 7,D 7572 200E JR NZ,$7582 7574 7A LD A,D 7575 B3 OR E 7576 280A JR Z,$7582 7578 0D DEC C 7579 2600 LD H,$00 757B 69 LD L,C 757C 29 ADD HL,HL 757D EB EX DE,HL 757E 37 SCF 757F ED52 SBC HL,DE 7581 EB EX DE,HL 7582 C5 PUSH BC 7583 D9 EXX 7584 D1 POP DE 7585 C1 POP BC 7586 C5 PUSH BC 7587 7A LD A,D 7588 BB CP E 7589 3031 JR NC,$75BC 758B CD9675 CALL $7596 758E 7A LD A,D 758F 53 LD D,E 7590 5F LD E,A 7591 CD9675 CALL $7596 7594 18D1 JR $7567 7596 C5 PUSH BC 7597 78 LD A,B 7598 82 ADD A,D 7599 3806 JR C,$75A1 759B 47 LD B,A 759C CDAB75 CALL $75AB 759F C1 POP BC 75A0 C5 PUSH BC 75A1 78 LD A,B 75A2 92 SUB D 75A3 3804 JR C,$75A9 75A5 47 LD B,A 75A6 CDAB75 CALL $75AB 75A9 C1 POP BC 75AA C9 RET 75AB C5 PUSH BC 75AC 79 LD A,C 75AD 83 ADD A,E 75AE 3804 JR C,$75B4 75B0 4F LD C,A 75B1 CD2075 CALL $7520 75B4 C1 POP BC 75B5 79 LD A,C 75B6 93 SUB E 75B7 D8 RET C 75B8 4F LD C,A 75B9 C32075 JP $7520 75BC 7A LD A,D 75BD BB CP E 75BE CC9675 CALL Z,$7596 75C1 C1 POP BC 75C2 C9 RET 75C3 0604 LD B,$04 75C5 3A1566 LD A,($6615) 75C8 B7 OR A 75C9 2802 JR Z,$75CD 75CB 3EFF LD A,$FF 75CD 4F LD C,A 75CE 3A0E66 LD A,($660E) 75D1 E601 AND $01 75D3 2014 JR NZ,$75E9 75D5 C5 PUSH BC 75D6 7E LD A,(HL) 75D7 23 INC HL 75D8 A9 XOR C 75D9 47 LD B,A 75DA CDFD75 CALL $75FD 75DD 78 LD A,B 75DE 17 RLA 75DF 17 RLA 75E0 17 RLA 75E1 17 RLA 75E2 CDFD75 CALL $75FD 75E5 C1 POP BC 75E6 10ED DJNZ $75D5 75E8 C9 RET 75E9 C5 PUSH BC 75EA 7E LD A,(HL) 75EB 23 INC HL 75EC A9 XOR C 75ED 47 LD B,A 75EE 1F RRA 75EF 1F RRA 75F0 1F RRA 75F1 1F RRA 75F2 CD0776 CALL $7607 75F5 78 LD A,B 75F6 CD0776 CALL $7607 75F9 C1 POP BC 75FA 10ED DJNZ $75E9 75FC C9 RET 75FD E6F0 AND $F0 75FF 4F LD C,A 7600 1A LD A,(DE) 7601 E60F AND $0F 7603 B1 OR C 7604 12 LD (DE),A 7605 14 INC D 7606 C9 RET 7607 E60F AND $0F 7609 4F LD C,A 760A 1A LD A,(DE) 760B E6F0 AND $F0 760D B1 OR C 760E 12 LD (DE),A 760F 14 INC D 7610 C9 RET 7611 113176 LD DE,$7631 7614 21B066 LD HL,$66B0 7617 CD2376 CALL $7623 761A 217073 LD HL,$7370 761D CD2376 CALL $7623 7620 C35866 JP $6658 7623 0600 LD B,$00 7625 1A LD A,(DE) 7626 13 INC DE 7627 B7 OR A 7628 4F LD C,A 7629 C8 RET Z 762A 1A LD A,(DE) 762B 13 INC DE 762C 09 ADD HL,BC 762D AE XOR (HL) 762E 77 LD (HL),A 762F 18F4 JR $7625 7631 04 DEFB $04 7632 1C DEFB $1C 7633 02 DEFB $02 7634 1C DEFB $1C 7635 02 DEFB $02 7636 68 DEFB $68 7637 02 DEFB $02 7638 FE DEFB $FE 7639 01 DEFB $01 763A 39 DEFB $39 763B 20 DEFB $20 763C 29 DEFB $29 763D 02 DEFB $02 763E 80 DEFB $80 763F 01 DEFB $01 7640 15 DEFB $15 7641 14 DEFB $14 7642 37 DEFB $37 7643 01 DEFB $01 7644 13 DEFB $13 7645 FF DEFB $FF 7646 00 DEFB $00 7647 FF DEFB $FF 7648 00 DEFB $00 7649 FF DEFB $FF 764A 00 DEFB $00 764B FF DEFB $FF 764C 00 DEFB $00 764D B8 DEFB $B8 764E 38 DEFB $38 764F 18 DEFB $18 7650 68 DEFB $68 7651 00 DEFB $00 7652 0F DEFB $0F 7653 1C DEFB $1C 7654 04 DEFB $04 7655 74 DEFB $74 7656 15 DEFB $15 7657 38 DEFB $38 7658 05 DEFB $05 7659 68 DEFB $68 765A 0B DEFB $0B 765B 68 DEFB $68 765C 05 DEFB $05 765D 38 DEFB $38 765E 03 DEFB $03 765F 1C DEFB $1C 7660 04 DEFB $04 7661 74 DEFB $74 7662 0C DEFB $0C 7663 01 DEFB $01 7664 0A DEFB $0A 7665 1C DEFB $1C 7666 05 DEFB $05 7667 38 DEFB $38 7668 00 DEFB $00 7669 00 DEFB $00 766A 21 DEFB $21 766B 47 DEFB $47 766C F6 DEFB $F6 766D CB DEFB $CB 766E CE DEFB $CE 766F CD DEFB $CD 7670 35 DEFB $35 7671 66 DEFB $66 7672 3A DEFB $3A 7673 40 DEFB $40 7674 F6 DEFB $F6 7675 C3 DEFB $C3 7676 64 DEFB $64 7677 F9 DEFB $F9 7678 00 DEFB $00 7679 00 DEFB $00 767A 00 DEFB $00 767B 00 DEFB $00 767C 00 DEFB $00 767D 00 DEFB $00 767E 00 DEFB $00 767F 00 DEFB $00 7680 00 DEFB $00 7681 00 DEFB $00 7682 00 DEFB $00 7683 00 DEFB $00 7684 02 DEFB $02 7685 22 DEFB $22 7686 20 DEFB $20 7687 20 DEFB $20 7688 05 DEFB $05 7689 50 DEFB $50 768A 00 DEFB $00 768B 00 DEFB $00 768C 05 DEFB $05 768D 75 DEFB $75 768E 57 DEFB $57 768F 50 DEFB $50 7690 02 DEFB $02 7691 74 DEFB $74 7692 71 DEFB $71 7693 72 DEFB $72 7694 04 DEFB $04 7695 41 DEFB $41 7696 24 DEFB $24 7697 11 DEFB $11 7698 02 DEFB $02 7699 52 DEFB $52 769A 6B DEFB $6B 769B F0 DEFB $F0 769C 02 DEFB $02 769D 40 DEFB $40 769E 00 DEFB $00 769F 00 DEFB $00 76A0 02 DEFB $02 76A1 44 DEFB $44 76A2 44 DEFB $44 76A3 20 DEFB $20 76A4 04 DEFB $04 76A5 22 DEFB $22 76A6 22 DEFB $22 76A7 40 DEFB $40 76A8 00 DEFB $00 76A9 52 DEFB $52 76AA 72 DEFB $72 76AB 50 DEFB $50 76AC 00 DEFB $00 76AD 22 DEFB $22 76AE 72 DEFB $72 76AF 20 DEFB $20 76B0 00 DEFB $00 76B1 00 DEFB $00 76B2 02 DEFB $02 76B3 24 DEFB $24 76B4 00 DEFB $00 76B5 00 DEFB $00 76B6 70 DEFB $70 76B7 00 DEFB $00 76B8 00 DEFB $00 76B9 00 DEFB $00 76BA 06 DEFB $06 76BB 60 DEFB $60 76BC 01 DEFB $01 76BD 12 DEFB $12 76BE 24 DEFB $24 76BF 40 DEFB $40 76C0 07 DEFB $07 76C1 55 DEFB $55 76C2 55 DEFB $55 76C3 70 DEFB $70 76C4 02 DEFB $02 76C5 62 DEFB $62 76C6 22 DEFB $22 76C7 70 DEFB $70 76C8 02 DEFB $02 76C9 51 DEFB $51 76CA 24 DEFB $24 76CB 70 DEFB $70 76CC 06 DEFB $06 76CD 16 DEFB $16 76CE 11 DEFB $11 76CF 60 DEFB $60 76D0 01 DEFB $01 76D1 35 DEFB $35 76D2 57 DEFB $57 76D3 10 DEFB $10 76D4 07 DEFB $07 76D5 46 DEFB $46 76D6 11 DEFB $11 76D7 60 DEFB $60 76D8 03 DEFB $03 76D9 46 DEFB $46 76DA 55 DEFB $55 76DB 20 DEFB $20 76DC 07 DEFB $07 76DD 12 DEFB $12 76DE 24 DEFB $24 76DF 40 DEFB $40 76E0 07 DEFB $07 76E1 52 DEFB $52 76E2 55 DEFB $55 76E3 70 DEFB $70 76E4 02 DEFB $02 76E5 55 DEFB $55 76E6 31 DEFB $31 76E7 60 DEFB $60 76E8 00 DEFB $00 76E9 02 DEFB $02 76EA 00 DEFB $00 76EB 20 DEFB $20 76EC 00 DEFB $00 76ED 02 DEFB $02 76EE 02 DEFB $02 76EF 24 DEFB $24 76F0 00 DEFB $00 76F1 12 DEFB $12 76F2 42 DEFB $42 76F3 10 DEFB $10 76F4 00 DEFB $00 76F5 07 DEFB $07 76F6 07 DEFB $07 76F7 00 DEFB $00 76F8 00 DEFB $00 76F9 42 DEFB $42 76FA 12 DEFB $12 76FB 40 DEFB $40 76FC 02 DEFB $02 76FD 51 DEFB $51 76FE 20 DEFB $20 76FF 20 DEFB $20 7700 06 DEFB $06 7701 BD DEFB $BD 7702 A8 DEFB $A8 7703 70 DEFB $70 7704 02 DEFB $02 7705 55 DEFB $55 7706 75 DEFB $75 7707 50 DEFB $50 7708 06 DEFB $06 7709 56 DEFB $56 770A 55 DEFB $55 770B 60 DEFB $60 770C 02 DEFB $02 770D 54 DEFB $54 770E 45 DEFB $45 770F 20 DEFB $20 7710 06 DEFB $06 7711 55 DEFB $55 7712 55 DEFB $55 7713 60 DEFB $60 7714 07 DEFB $07 7715 46 DEFB $46 7716 44 DEFB $44 7717 70 DEFB $70 7718 07 DEFB $07 7719 47 DEFB $47 771A 44 DEFB $44 771B 40 DEFB $40 771C 02 DEFB $02 771D 54 DEFB $54 771E 75 DEFB $75 771F 20 DEFB $20 7720 05 DEFB $05 7721 57 DEFB $57 7722 55 DEFB $55 7723 50 DEFB $50 7724 07 DEFB $07 7725 22 DEFB $22 7726 22 DEFB $22 7727 70 DEFB $70 7728 01 DEFB $01 7729 11 DEFB $11 772A 55 DEFB $55 772B 20 DEFB $20 772C 05 DEFB $05 772D 56 DEFB $56 772E 65 DEFB $65 772F 50 DEFB $50 7730 04 DEFB $04 7731 44 DEFB $44 7732 44 DEFB $44 7733 70 DEFB $70 7734 05 DEFB $05 7735 77 DEFB $77 7736 55 DEFB $55 7737 50 DEFB $50 7738 07 DEFB $07 7739 55 DEFB $55 773A 55 DEFB $55 773B 50 DEFB $50 773C 02 DEFB $02 773D 55 DEFB $55 773E 55 DEFB $55 773F 20 DEFB $20 7740 06 DEFB $06 7741 55 DEFB $55 7742 64 DEFB $64 7743 40 DEFB $40 7744 07 DEFB $07 7745 55 DEFB $55 7746 55 DEFB $55 7747 71 DEFB $71 7748 06 DEFB $06 7749 55 DEFB $55 774A 66 DEFB $66 774B 50 DEFB $50 774C 03 DEFB $03 774D 42 DEFB $42 774E 11 DEFB $11 774F 60 DEFB $60 7750 07 DEFB $07 7751 22 DEFB $22 7752 22 DEFB $22 7753 20 DEFB $20 7754 05 DEFB $05 7755 55 DEFB $55 7756 55 DEFB $55 7757 70 DEFB $70 7758 05 DEFB $05 7759 55 DEFB $55 775A 55 DEFB $55 775B 20 DEFB $20 775C 05 DEFB $05 775D 55 DEFB $55 775E 77 DEFB $77 775F 50 DEFB $50 7760 05 DEFB $05 7761 52 DEFB $52 7762 25 DEFB $25 7763 50 DEFB $50 7764 05 DEFB $05 7765 55 DEFB $55 7766 22 DEFB $22 7767 20 DEFB $20 7768 07 DEFB $07 7769 12 DEFB $12 776A 24 DEFB $24 776B 70 DEFB $70 776C 07 DEFB $07 776D 44 DEFB $44 776E 44 DEFB $44 776F 70 DEFB $70 7770 00 DEFB $00 7771 46 DEFB $46 7772 23 DEFB $23 7773 10 DEFB $10 7774 07 DEFB $07 7775 11 DEFB $11 7776 11 DEFB $11 7777 70 DEFB $70 7778 02 DEFB $02 7779 72 DEFB $72 777A 22 DEFB $22 777B 20 DEFB $20 777C 00 DEFB $00 777D 00 DEFB $00 777E 00 DEFB $00 777F 0F DEFB $0F 7780 02 DEFB $02 7781 54 DEFB $54 7782 F4 DEFB $F4 7783 F0 DEFB $F0 7784 00 DEFB $00 7785 61 DEFB $61 7786 75 DEFB $75 7787 70 DEFB $70 7788 04 DEFB $04 7789 46 DEFB $46 778A 55 DEFB $55 778B 60 DEFB $60 778C 00 DEFB $00 778D 34 DEFB $34 778E 44 DEFB $44 778F 30 DEFB $30 7790 01 DEFB $01 7791 13 DEFB $13 7792 55 DEFB $55 7793 30 DEFB $30 7794 00 DEFB $00 7795 25 DEFB $25 7796 74 DEFB $74 7797 30 DEFB $30 7798 03 DEFB $03 7799 46 DEFB $46 779A 44 DEFB $44 779B 40 DEFB $40 779C 00 DEFB $00 779D 35 DEFB $35 779E 53 DEFB $53 779F 16 DEFB $16 77A0 04 DEFB $04 77A1 46 DEFB $46 77A2 55 DEFB $55 77A3 50 DEFB $50 77A4 02 DEFB $02 77A5 06 DEFB $06 77A6 22 DEFB $22 77A7 70 DEFB $70 77A8 01 DEFB $01 77A9 01 DEFB $01 77AA 11 DEFB $11 77AB 52 DEFB $52 77AC 04 DEFB $04 77AD 56 DEFB $56 77AE 65 DEFB $65 77AF 50 DEFB $50 77B0 06 DEFB $06 77B1 22 DEFB $22 77B2 22 DEFB $22 77B3 70 DEFB $70 77B4 00 DEFB $00 77B5 57 DEFB $57 77B6 55 DEFB $55 77B7 50 DEFB $50 77B8 00 DEFB $00 77B9 65 DEFB $65 77BA 55 DEFB $55 77BB 50 DEFB $50 77BC 00 DEFB $00 77BD 25 DEFB $25 77BE 55 DEFB $55 77BF 20 DEFB $20 77C0 00 DEFB $00 77C1 65 DEFB $65 77C2 56 DEFB $56 77C3 44 DEFB $44 77C4 00 DEFB $00 77C5 35 DEFB $35 77C6 53 DEFB $53 77C7 11 DEFB $11 77C8 00 DEFB $00 77C9 34 DEFB $34 77CA 44 DEFB $44 77CB 40 DEFB $40 77CC 00 DEFB $00 77CD 34 DEFB $34 77CE 21 DEFB $21 77CF 60 DEFB $60 77D0 04 DEFB $04 77D1 64 DEFB $64 77D2 44 DEFB $44 77D3 20 DEFB $20 77D4 00 DEFB $00 77D5 55 DEFB $55 77D6 55 DEFB $55 77D7 30 DEFB $30 77D8 00 DEFB $00 77D9 55 DEFB $55 77DA 52 DEFB $52 77DB 20 DEFB $20 77DC 00 DEFB $00 77DD 55 DEFB $55 77DE 77 DEFB $77 77DF 50 DEFB $50 77E0 00 DEFB $00 77E1 55 DEFB $55 77E2 25 DEFB $25 77E3 50 DEFB $50 77E4 00 DEFB $00 77E5 55 DEFB $55 77E6 53 DEFB $53 77E7 16 DEFB $16 77E8 00 DEFB $00 77E9 71 DEFB $71 77EA 24 DEFB $24 77EB 70 DEFB $70 77EC 03 DEFB $03 77ED 24 DEFB $24 77EE 22 DEFB $22 77EF 30 DEFB $30 77F0 02 DEFB $02 77F1 22 DEFB $22 77F2 22 DEFB $22 77F3 20 DEFB $20 77F4 06 DEFB $06 77F5 21 DEFB $21 77F6 22 DEFB $22 77F7 60 DEFB $60 77F8 05 DEFB $05 77F9 A0 DEFB $A0 77FA 00 DEFB $00 77FB 00 DEFB $00 77FC 07 DEFB $07 77FD 8B DEFB $8B 77FE AB DEFB $AB 77FF 87 DEFB $87